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ABSTRACT 


Pulse testing is investigated theoretically and experimentally 
using an IBM 1800 Data Acquisition and Control System. A double pipe 
countercurrent water - water heat exchanger is used for the experimental 
investigation. 

Considerable material in the thesis is devoted to the description 
of the hardware and software interface between the IBM 1800 and the heat 
exchanger system. Direct digital control was used for the operation of the 
heat exchanger and the computing capabilities of the 1800 enabled a complete 
pulse test to be directed from a typewriter console within the digital 


computer laboratory. A complete pulse test involved: 


Dy control of the process and calculation of the heat balance 
until steady state operation was ascertained 

ee manipulation of a control valve on the process to introduce 
the desired pulse 

ay rapid acquisition of data from process variables required 

4. analysis of pulse data to determine the frequency response 
of the process using three different techniques to evaluate 
the Fourier transform 


oe plotting of the frequency response diagrams of the process 


The theoretical investigation demonstrated the effect of the input 
pulse duration on the frequency response results obtained from a first order 


system. Also included is an example of two cascaded first order systems and 
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an underdamped second order system. The effect of an error of closure on the 

output pulse and the use of spectral smoothing are considered briefly. 
Generally, studies were not detailed in any aspect, so few specific 

conclusions could be drawn. However, the material presented represents a 


good foundation from which a number of future projects can proceed. 
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Over the last fifteen to twenty years industrial process control 
has evolved from an art into the complex science it is today. 

In the past, process units were designed to meet steady state 
performance criteria. Little or no consideration was given to the 
dynamic aspects which are so vitally important in determining the 
performance under automatic control. Usually the control instruments 


used were purchased on a rule of thumb basis or on a suppliers recom- 


iv Li 


mendation. They were "tacked"’ on to the process unit and adjusted in a 
trial and error fashion until a satisfactory degree of control was 
obtained. Occasionally, the dynamic design of the process unit was 
extremely poor and the built in flexibility of the control instruments 
was insufficient to compensate. In such cases, satisfactory control 
could not be obtained so the instruments were usually operated in manual 
mode and considered to be poorly designed. 

Today the general knowledge and understanding of automatic control 
theory is at a much higher level. It is generally realized that the 
process unit is an important element of any control loop and consequently 
there is a trend toward increased consideration of dynamics in process 
design. The instrumentation that is now available is much more sophisti- 
cated and now makes possible the implementation of advanced control 
theory. The most promising example of sophisticated equipment is the 


process control computer which offers an aimost unlimited latitude for 


implementation of control logic. 
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However, in spite of the great strides in control theory and 
control equipment design, there still exists a problem area in the 
field of process control. It is the serious shortage of dynamic 
mathematical process models which are generally required for develop- 
ment and design cf control loops. The shortage of information in this 
area can be attributed to the complex interactions of process variables 
and the individual nature of process units which make models derived 
from theoretical considerations almost impossible to obtain. Ore. it a 
theoretical model can be obtained, it is often too complex to be used 
for control purposes. As a consequence of the difficulties associated 
with the theoretical approach to process modelling, there has been a 
considerable amount of work directed toward the development of empirical 
models using the results of dynamic tests conducted in a full scale 
plant or on a prototype model. A number of methods for this type of 
testing have come into common usage and among these is the pulse testing 
techniques studied in this work. 

If the current trend toward implementation of computer control 
continues in the future, it is reasonable to assume that the requirement 
for dynamic mathematical process models must also increase. Consequently, 
there is a requirement today for a dynamic testing method which can be 
used successfully by the practicing process engineer at a minimum cost 
for test equipment and time. It is the author's opinion that the pulse 


testing technique studied in this work satisfies this requirement. 


Lee Methods of Dynamic Analysis 


The dynamic characteristics of a process unit can be considered 


known when the time varying functional relationships between the inputs 
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and the outputs are defined. There are a number of methods in common 
usage today which are suitable for determination of these relationships. 
On simple systems it is often possible to write the differential 
equations which describe the dynamic relationships. However, as 
mentioned previously, for tae industrial process units complexity of 
the functional relationships makes dynamic testing the only feasible 
approach to determining dynamic characteristics. 

In general, this type of testing involves forcing one of the process 
unit inputs in a fashion which will excite the unit dynamics. Any other 
inputs to the unit are held constant and the effect of the excitation is 
monitored by recording the time varying response of all process unit 
output variables. 

Most dynamic test.ng methods may be categorized into the following 
four areas on the basis of the type of input forcing function used: 

a. Initial condition inputs 
b. Sinusoidal inputs 

c. Random inputs 

d. Pulse inputs 

The initial condition input is usually a step change and the infor- 
mation yielded is usually evaluated in the time domain. This method of 
analysis is commonly referred to as transient response analysis as opposed 
to the frequency response analysis which takes place in the frequency domain. 
Although transient and frequency response analyses are related for linear 
systems, they are often considered independently. In the four categories 
above, information from initial condition inputs is usually the only type 


analyzed in the time domain. The other methods are generally associated 
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with frequency response, although the pulse and initial condition 
categories are somewhat interchangeable. For example, a long duration 
pulse may be used where it is not desirable for the process to be away 
from the operating point indefinitely as it would be on a step change. 
Also, it is theoretically possible to extract frequency response 
information from the transient data obtained with a step input, although 


1 


practical considerations indicate other types of inputs are more suitable. 


In the area of transient analysis from initial condition forcing, 
it has been common practice for process personnel to use the step input 
as a means to gain intuitive knowledge of the process dynamics. lowever, 
more quantitative information is now being obtained through transient 
analysis. Shinskey (7/2), in a recent book, has suggested that significant 
quantitative information can be learned about the dynamics of a process 
unit by studying the equipment configuration and conducting a single open 
and closed loop test with a conventional analog controller. Sanborn (68) 
reported the successful application of a technique where simple first and 
second order systems with dead time were used as models for complex 
industrial processes. Basically, the techaique involved evaluaticn of 
the model parameters so the transient response of the process agreed with 
that of the model on the basis of a best fit least squares criterion. 
This technique has been extended into the design of digital control 
algorithms using what is cailed the canceilation compensation method. 


This material, however, is beyond the scope of this work and will not be 


discussed. 
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The use of a sinusoidal input of constant amplitude and frequency 
is often referred to as the classical frequency response method. The 
outputs of the process unit when subjected to such an input will appear 
as an oscillatory signal which will be a pure sine wave if the process 
is linear. When the Eeeakant in the output disappear, the amplitude 
ratio of the output to the input and the phase difference between the 
two signals are recorded. These two values constitute one point. on the 
frequency response diagram for the process being tested. Other points 
on this diagram are determined by repeating the procedure outlined 
using a different frequency sine wave input for each test. This method 
of dynamic testing, although commonly understood, is not commonly used 
to obtain dynamic information about industrial processes. There are 
three main reasons for its lack of popularity: 

a. The field testing time is long and tedious. Likewise, the analysis 
of the data can also require considerable time, especially if the 
signals are noisy. 

b. A sinusoid on the process input which can be detected at the snes 
is usually sufficiently large in amplitude to cause off specifi- 
cation production. This in conjunction with the length of field 
testing time leads production requirements to forbid such tests. 

c. Pure sine wave actuators are difficult and expensive to build for 
many process inputs. 

The random input analysis almost certainly requires an on-line 
digital computer before it is feasible to.use. [t involves reading 
large numbers of data points from the process unit input and output. 
From this data statistical auto and cross-correlations and Fourier 


transforms are calculated to yield frequency response data. The 
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theoretical advantage of this method is that it does not require large 
magnitude input disturbances to yield dynamic information. However, 
Wollaston (78) indicated it is most unlikely that natural statistical 
inputs will meet the desired criteria, so generated random inputs must 
be applied. It is reasonable to assume that a random actuator for a 
process input variable would be no easier, and maybe more difficult, to 
build than a pure sine wave actuator. It, therefore, follows that the 
requirement for a generated random input may seriously hamper tha 
popularity of random noise analysis, even if a computer is coupled to 
the process. 

A pulse input is defined as any signal which differs from zero or 
some reference value for a finite period of'time. The strength of a 
pulse input must be sufficient to excite the process unit dynamics without 
driving the process unit beyond its capacity to respond. The shape of 
the pulse may be entirely arbitrary, although several mathematical forms 
have been investigated to provide general guidelines on the effect of 
shape. Information derived from a single properly executed pulse test 
is equivalent to that which can be obtained from a series of sinusoidal 
inputs of different frequencies. This is because a pulse is composed of 
an infinite number of harmonic frequencies which excite the process unit 
simultaneously. Determination of the process unit response to each of 
these frequencies is readily obtained from the Fourier transforms of the 
input and output pulses. The Fourier transform calculation can be easily 


programmed on most general purpose digital computers. Some advantages 


of pulse testing are the following: 
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a. Minimum plant testing time, since one properly executed pulse 
test is sufficient. 

b. No requirement for sophisticated pulse generation equipment, 
e.g. a simple hand valve can be used for a flow pulse. 

¢. Once the Fourier transform program is obtained, the analysis of 

the data requires little labour. 

d. The technique is suitabie for testing equipment which can only 
tolerate short term deviations of the input variable from the 
normal operating point. This applies to equipment ranging from 
volatile chemical plants to air craft in flight. 

The literature survey did not reveal a reported application of 
pulse testing where useful information was not obtained. Also, literature 
reports based on experience with pulse testing and other techniques 
generally indicated that pulse testing showed the most promise. It is 
significant that the Instrument Society of America recently adopted 


. 


pulse testing as a standard dynamic testing technique. (17) 


Ao selection of Equipment 
To properly evaluate pulse testing, it was necessary to have a 
physical system which could be used as a ''test bench". It was decided 
that the concentric double pipe heat exchanger would be the best choice 
for the following reasons: 
a. The heat exchanger is a process unit which is common to almost 
all industrial plants. 
b. The published literature on heat exchanger design, steady state 


and dynamic characteristics and control is extensive. In 


particular, for the double pipe heat exchanger analytical 


















wv (ren: te Seay oP assganaey’ avet kh BRA eRe eT ad SS ee re - 

| ‘ oI iy wc ) 

oliet) Bd oe mes eT eae cantina gene ae it 

Si hata TH SRILaORT ere" werter 
“oe tiea ond? seo bose eta Oe heK stil tase ee 

ee weeset aaaieene” per ee See 

smedahea cr Wess ee a 

Sibc a yood aig be-kig Reps NE IN PRR Te EE aS * 

salt as MRSS ee ete amet ntweeey ne 





34) 65 snide ersten 
a 


ani? Jotoe 3h Ge 
1 17F FQ tan beret sijdelov ie» _ 


ae 
=| 

ht 

= 


salen hts oy (id vevene aimed anata Oar 

ey » jen Ave "ei bruarea! Iveta ae oh. feesees ealyg 7 
thu “ta losagas 6 boead 2Isaqet 

isesa sethun- jede Sate iis ‘(fh taxergg 

eal, Go ws me. Sito ys eee sf. sate dane.) Linde | 7 

vl bystvste e a0. gattego-meleg 


ifwoyteps to sod seees ‘El 


wil, oo. ytBenw at +! wurde, geipe seaelece gee 


- a) 


biSab shwegt . 4. gone 28 Q\aeu™d # hwo. daeawaereye Look ayig. 
Pe 


Iie Sed wilt gilhtoew Yegitedors ‘pol oy algueh 924 ‘anoee std eee, 
a - 7 

| Lents gente 9s OA 

. : : a - , a 

oy dios al Mkite sins saupéagok Gi) tegen Seeeleee 
ad : : 











_ — 


1 


Des 


non-linear and linearized models have been simulated using 
digital and analog techniques, and the results of these 
simulations have been correlated with experimental data. It 
was felt that this large amount of information would be 
extremely useful for quantitative evaluation of the dynamic 
data obtained by pulse testing. 

The double pipe heat exchanger is relatively simple to build 


and can be easily started up and shut down over short periods 


of time. 
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EK LITERATURE SURVEY 


2.1 Classification of Literature 

The published literature reported in this chapter has been divided 
into two broad categories. The first category includes the literature 
exclusively related to heat exchanger dynamics, while the second includes 
that related to pulse testing. The studies on heat exchanger dynamics 
involving pulse testing have been placed in the second category. 

The literature on heat exchanger dynamics in the first category is 
further sub-divided into investigations concerned with temperature forcing 
and flow forcing. The publications considered in each of these categories 
are presented in chronological order. The literature on pulse testing in 


the second category is also presented in chronological] order. 


Lae Heat Exchanger Dynamics 
oat Temperature Forced 

The earliest investigators into heat exchanger dynamics 
concerned themselves with the response to temperature forcing. This was 
because the differential equations describing these responses were linear 
with constant coefficients provided that the heat transfer coefficients 
could be considered independent of temperature, which was considered a 
reasonable assumption. 

Williams and Morris (80) reviewed most of the work conducted 
on heat exchanger dynamics through the 1950's. Roseubrsck (67) published 
a literature review on heat exchanger and distillation column dynamics 


in 1962. 
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Debolt (21) was one of the first people to observe the 
resonance phenomena on a temperature forced heat exchanger. Cohen and 
Johnson (16) predicted resonance theoretically using a distributed 
parameter model. However, their experimental data did not extend to 
high enough frequencies. In 1961 they published a second study (15) 
which experimentally verified their prediction of resonance. 

Paynter and Takahashi (61) developed exact solutions for 
the frequency response of models of temperature forced concentric tube 
heat exchangers. Both parallel and counter flow were considered. 

Hsu and Gilbert (44) considered theoretical transfer 
functions for various types of temperature forced heat exchangers. Their 
work was entirely theoretical, however, references were made to previous 
experimental work. 

Harriott (34) and Buckley (10} in their textbooks discuss 
some of the more recent reports on the dynamics of temperature forced 
heat exchangers. 

Mozely (58) was one of the first to use a lumped parameter 
model for a liquid - liquid heat exchanger. He compared his model to 
experimental data derived from sinusoidal temperature forcing of a heat 
exchanger and a passive analog model. 

Thal-Larsen (76) neglected the complexities of theoretical 
models and developed several simple models from knowledge of the basic 
characteristics of heat exchangers. He verified his model for the 
concentric pipe heat exchanger by correlating it with frequency response 
diagrams determined experimentally by other workers. He concluded that 


a single basic parameter may be used to dynamically characterize entire 
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families of heat exchangers. 
Chan and Leonard (11) have presented theoretical research 
on the dynamics of temperature forced, parallel flow heat exchangers with 


no phase change. 


ee 


Lees and Hougen (52) and Hearn (36) reported the only studies 
of flow forced disturbances prior to 1970. Because they used pulse testing 
the details of their work are contained in Section 2.3. 

Edwards (26) was one of the first to study flow forcing of 
liquid - liquid heat exchangers. He developed his model for countercurrent 
flow. Resonanace was not reported. 

Hempel (38) used a steam - water heat exchanger and derived 
transfer functions for temperature forcing of steam and water as well as 
flow forcing of the water. Resonance was predicted theoretically and 
demonstrated experimentally. 

Koppel (49) obtained an analytical solution to a non-linear 
model consisting of a single partial differential equation. He compared 
this solution to a linearized version of the same model to determine the 
effect of linearization. 

Isom (46) studied theoretically and experimentally a flow 
forced liquid - liquid double-pipe heat exchanger using a shell with and 
without baffles. He used both distributed parameter and lumped parameter 
models and simulated the latter on the analog Eonpuee Resonance was 


observed experimentally, but it was not as obvious as in other research. 
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Stermole (74, 75) also studied a flow forced concentric 
tube, liquid - liquid heat exchanger. He used distributed and lumped 
parameter models. Resonance was observed experimentally. 

Herron (37) devoted a major portion of his research 
towards developing a successful digital simulation of a double-pipe 
heat exchanger. He considered countercurrent flows and a liquid -liquid 
media. The experimental investigation was very limited. 

Fisher (28) experimentally investigated the affect of 
Reynolds Number, Prandtl Number and heat exchanger size using sinusoidal 
flow forcing on a liquid - liquid, countercurrent concentric pipe heat 
exchanger. A frequency response diagram was used to compare the 
experimental data with values predicted from a mathematical model. 
Resonance was observed and discussed. 

Privott (62) studied a concentric tube liquid - liquid 
heat exchanger using flow forcing. He simulated a non-linear model, 
both digitally and with an analog computer. The non-linear model results 
when compared to data from an experimental heat exchanger were found to 
be in good agreement. Using perturbation techniques, a linearized model 
was derived from the non-linear model and the effect of linearization 
was studied in both the time and frequency domains. Privott is one of 
the few researchers who used a model which did not neglect the heat 


capacity of the shell walls. 


7 oP Pulse Testing 
To the best of the author's knowledge, the first application of 
pulse testing of physical systems took place in,the air craft industry 


in the early 1950's. Walters and Rea (79), Seamans, Blasingame and 
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Clementson (71), Rea (64), Bolilay (6) and Simth and Triplett (73) all 
published work related to the pulse testing of air craft while in 
flight. Draper, McKay and Lees (22) published a book which, among 
other things, provided one of the first complete reports on the 
mathematics of pulse testing. The techniques they present for evali- 
ating the Fourier transform have been used extensively and are still 


popular today. 


testing to heat exchangers. Using flow forcing of a steam - water heat 
exchanger, they were able to obtain good agreement between the experi- 
mental and analytical results when compared on a frequency response 


diagram. ‘This work wes extended by Morris (57), Hearn (36) and 


ia) 


Mincentiddy).4 Morniss(57/) asedapulse! testing to obtain the transfer 

function relating the tube outlet temperature to changes in the tube 

inlet temperature on a commercial ape - liquid heat exchanger. 

Hearn (36) pulsed the shell flow on a water - water baffled heat exchanger 

and obtained a linear model from the frequency response diagram by using 

standard linear profiles presented in Draper, McKay and Lees (22). 

Vincent, Hougen and Dreifke (77) used pulse testing to study the dynamics 

of fluid mixing in shell and tube heat exchangers by introducing a 

temperature pulse in the shell side with the tubes being devoid of fluid. 

From their results they concluded that mixing is the predominant mechanism 

determining the effluent fluid temperatures of shell tube heat exchangers. 
In 1960, Head, Hougen and Walsh (35) demonstrated the feasibility 

of pulse testing for procuring dynamic information on complex processes 

by studying dynamics of the dispersion of solutes in flowing liquid 


systems. In the same year Grantom, Hougen and Driefke (33) used pulse 
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testing to study the dynamic lags in stream analyzers. 

By the late 1950's pulse testing had become fairly common in the 
process industries and general reviews of the method appeared in the 
literature. Lees (51) published a general review of dynamic analysis 
presenting several methods, including pulse testing. In 1961, Hougen 
{41) published a general discussion on pulse testing presenting the 
technique in a simple condensed form. In the same year Hougen and 
Walsh (42) co-authored a very comprehensive review of the pulse testing 
methods. They presented nine applications of pulse testing to physical 
Systems, some of which were taken from the papers reported in this 
survey. 

Driefke (25) did an extensive study into the effect of pulse shape 
using analog simulation of system up to the sixth order with three 
resonant peaks. In all cases he was able to select a single pulse which 
yielded a frequency response curve that agreed very well with the 
theoretical curve. Driefke was also able to demonstrate that valid 
information could be obtained between the zeros of the frequency content curve 
of the input pulse. 

In 1962, Driefke, Hougen and Mesmer (24) studied the effect of 
an error of closure on the output pulse using pulse time data derived 
from an analog simulation of a second order system with various damping 
ratios. They concluded that some reliable results can be obtained under 
truncation. However, it can be seen from their. results that the data 
scatter at higher frequencies increases with an increased amount of 
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Ciements (12, 13) also studied the effects of pulse shape and by 
means of a graph clearly illustrated the relationship between pulse shape 
and frequency content. Using data from an analog computer, he also 
studied the effect of the error of closure in the output pulse, the 
effect of the number of significant figures in the time data, the effect 
of using too few data points to approximate time curves and the effect of 
using a variable integration increment for the time curves. Clements used 
pulse testing experimentally to determine the dynamics of a packea 
extraction column. 

Hougen (40) published an excellent review of dynamic analysis which 


includes a comprehensive section on pulse testing. He provided an 


in Sechron/al2.2 Of thisinthesis!, Also, he introduced a technique whereby 
the specification for a closed pulse ar be dropped by using developments 
presented in the work of Schechter and Wissler (70) and Nyquist, Schindler 
and Gilbert (59). Both of these studies were concerned with the deter- 
mination of frequency response information from a step response. 

Banham (1) applied pulse testing to a full scale navai steam 
generating system after failing to obtain satisfactory dynamic information 
using transient and pure frequency forcing. He applied an analog filter 
to reduce spectral noise and used a specialiy built analog computer to 
calculate the Fourier transform. He was able to obtain good agreement 
between theory and experiment and claimed an economic advantage in using 
pulse testing over transient or pure frequency forcing. 


To the author's knowledge, the most up-to-date general review of 


pulse testing is that of Driefke and Hougen (73)2. Their report 16 
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highlighted by a good development of the mathematics of pulse testing. 
They discuss features which should be part of any computer program used 
to analyze the data and mention the necessity of having a routine to 
handle pulses which do not close. Examples of the application of pulse 
testing to equipment ranging from a pressure transducer, which required 
an oscilloscope to record the response to a 200-plate distillation 
column which had an output pulse duration of 138 hours are given. 

Lees and Dougherty (50) investigated some of the problems of 
numerical analysis in determining the Fourier transform. 

Janis (47), Fogle (29), Go (32), Renfro (65), and Marino and 
Stutzman (54) in the period from 1965 to 1967, have applied pulse 
testing in the study of the dynamics of distillation columns. 

Wollaston and Swanson (78) compared the pulse, step and random 
varying forcing functions. When applied So dibserent chemical processes 
simulated on an analog coniputer. They introduced a new lag window to 
reduce spectral noise. They concluded that if the process noise level 
is not excessive and if there are no restraints on the process input, 
the pulse signal is the best to use. 

Marina, Perna and Stutzman (53) compared the frequency response 
results determined from the response of a 24-plate distillation column 
to sinusoidal and pulse forcing of the reflux rate. They used results 
obtained by sinusoidal forcing as a preaderd on which to evaluate the 
validity of pulse testing. They considered pulse test results valid 


when they agreed within 25%. 
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The wide acceptance of pulse testing is borne out by the fact 
that in October 1968 the Instrument Society of America published a 
standard on dynamic testing (17) which included a section devoted to 


pulse testing. 
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Loud. MATHEMATICAL BACKGROUND OF PULSE TESTING 


lo 
— 


Introduction 








In 1822, Fourier introduced the Fourier series (30): This series. 
which is the basis of the mathematics in pulse testing, provided a means 
BOL Urepresenting periodic functions in terms of a series of sinusoidal 
waves of different frequencies and amplitudes. In the case of a single 
pulse the period is infinite and the Fourier series representation 
becomes what is known as the Fourier transform. When the Fourier 
transform of the input and output pulses obtained from a pulse test are 
evaluated, the frequency response of the system pulse tested can be 
readily obtained. Until the development of the digital computer the 
number of calculations involved in evaluating the Fourier transform of 
transient data was prohibitive for most practical cases. However, today 
this is no longer a problem and pulse testing has experienced a tremendous 
growth in popularity. 

The information contained in this chapter provides a general 
description of the manner in which the Fourier transform is used in 
pulse testing. Some of the material in this chapter has been taken 


directly from Clements (12). 


cee Application of the Fourier Transform to Pulse Testing 
3.21. General 
The transfer function of a tineareeeceee may be defined 
as the ratio of the Laplace transform of the process output to the 


Laplace transform of the input, all initial conditions being zero. 
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Thus, from the definition of the Laplace transform the transfer 


function is given by: eS 
=st 
: y Gt) ate dt 
G(s) = Peron = “9 ; (Sar) 


[x(t] ro" eine 
t [wo RS ees 
Oo 


Where G(s) is the process transfer function 





y(t) is the process out put | 
x(t) is the process input 
t is time 
s is the complex variable of the Laplace transform 
fel Jindicates the Laplace transform operation 
In the remainder of this work only functions which are 
identically zero for negative t need be considered. 
From consideration of the behaviour of Equation (3.1) 
along the imaginary axis, provided the transforms do converge for the 


real part of s equal to zero, it follows that the equation can be stated 


a7) 
y(t) he dt 


G(jw) = “25 —______ = | (iw) | exp (5 are [eciw)] (3.2) 


jwt 
x(t) e Jw at 
fe) 


Obviously, with the above-mentioned restrictions regarding 


as 


x(t) and y(t), G(jw) is the ratio of the Fourier transforms. These 
restrictions can be easily satisfied by measuring y(t) and x(t) as 


perturbations from some steady state values which existed at zero time. 
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In the remainder of this study the following designations 


will be employed: 





G( jw) =  AR(w) 
exp (j arc | ociey | DY a Gh PATO, 
Equation (3.2) can also be written as: 
nalgeae eal brea | i (3.3) 
FO] | 
$(w) = arc a =e are y(t) = arc x(t) Ne) (3.4) 


wid | ] indicates the Fourier transform operation. 
AR = amplitude ratio of the process 


® = phase lag of the process 


In other words, if the integrals in Equation (3.2) can be evaluated 
numerically from experimentally obtained pulse data for x(t) and y(t), 
then the process frequency response can be readily calculated from 


Equation (3.3) and (3.4). 


Shar Gees Use of the Frequency Content Curve 


The frequency content curve for the input pulse is of 
paramount importance in assessing the frequency response information 
obtainable from a pulse test. This curve is a graph of the magnitude of 


the Fourier transform of the input pulse, #F x(t) » versus frequency. 





The ordinate of the frequency content curve at any given frequency is 
proportional to the magnitude of the sinusoidal content of the pulse at 
that frequency. At frequencies where the ‘magnitude ‘of -the Fourier 


transform becomes small, in the vicinity of the zeros, valid frequency 
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response information cannot be determined. Evidence of such auifticul cy 
appears as discontinuities in-the frequency response diagram, establi- 
shed us ing Equation (3.2). In mathematical terms, a low or zero frequency 
content amplitude implies division by a small number or zero in this 
equation. 

The input pulse utilized should provide a sufficiently 
high frequency content that is, a high Fourier transform magnitude, at 
the frequencies of interest. In general, the shape of the frequency 
content curve is a function of the duration and shape of the pulse. For 
example, a rectangular pulse has a frequency content curve of the form 


shown in Figure l. 


yale 
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Frequency 
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Figure 1 - Frequency Content of a Rectangular Pulse 


The following points concerning Figure 1 should be noted: 
a. The frequency content is normalized on the basis of the content 
at zero frequency. 


b. Only positive frequencies are considered. 
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From Figure 1, it can be seen that the first zero in the ordinate of 
the frequency content curve occurs when wd/2 =forw=2/d. There- 
fore, the narrower the pulse, (d = duration) the higher the value of 
the frequency w at which the ordinate of the een ci ic sahent first 
becomes zero. Since the curve decreases monotonically to the first 
zero, a more desirable frequency coatent curve will result when this 
zero occurs at the highest frequency possible. The ideal frequency 
content curve results from an impulse which has zero width. For this 
case the frequency content curve is a constant value of 1.0 at all 
frequencies. In general, all shapes of one-sided pulses exhibit a decay 
in frequency content ordinate with increasing frequency and the rate of 
decay increases as pulse duration inceene eet 

The relationship between frequency content and pulse 
shape has been studied by a number of investigators, notably Clements 
(12) Dreifke (25) and Lees (51). The pulse shapes which have been 
investigated may be placed in two categories; one and two-sided. One- 
sided pulses investigated include primarily the rectangular, triangular, 


displaced cosine, weighted displaced cosine, cosine, ramp, squared ramp. 


Two-sided pulses include the rectangular doublet, full sine damped sine 
and others. Study of the results of Driefke (25) and Lees (51) led 
Hougen (41) to the following conclusions: 
a. One-sided pulses which are symmetrical about Pheie maxima all 
yield identical Fourier transform phase aves thatsis, 


(-wT)/(2) radians. 
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b. Pulses such as a rectangular doublet or full sine wave have 
phase angles which lag those of one-sided pulses by 90 degrees. 

c. All one-sided pulses exhibit their maximum frequency content 
at zerc frequency, and those which are symmetrical about the 
maximum pulse amplitude exhibit one or more zeros in their 
frequency content. 

d. As the one-sided symmetrical pulses become smoother in their 
initia] and final first derivatives, the magnitude of the 
frequency content is maintained at higher levels over a wider 
frequency range. 

e. Unsymmetrical one-sided pulses may have no zeros in their. 
frequency content. 

f. As one-sided Suises become more and more unsymmetrical by 
returning more quickly to zero than they depart from it, their 
frequency content amplitude diminishes less rapidly. The 
ultimate is displayed by the ramp pulse. 

g. Two-sided equal-weighted pulses, such as the rectangular and 
full sine have a frequency content of zero at zero frequency 
and exhibit a maximum at some higher frequency. 

h. A damped one-cycle sine wave pulse has a finite frequency 
content at zero frequency but exhibits its maximum value at 
a higher frequency. | 

The implication to be drawn from Hougen's last two 
observations is that pulses having properties Rites to the last three 
can be used for better system excitation in selected frequency ranges. 


These forms should be particularly useful for diagnostic purposes. 
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Disregarding the effect of shape, it would appear from 
the discussion on width of one-side pulses, that the narrowest input 
pulse physically obtainable would be the pulse to use in a pulse test 
because it would place the first zero of the frequency content at the 
highest possible frequency. However, pulse width cannot be chosen 
arbitrarily because a very narrow pulse of finite height cannot 
generally drive a process sufficiently hard to generate a time response 
that is large enough to be distinguishable from the process noise. The 
driving force of a pulse is a function of its area. In many cases, the 
height is often limited by physical constraints in the process tested. 
For example,;.it is meenine eset tc attempt to drive a process so hard 
that its capacity to respond is exceeded or until large non-linearities 
are introduced. Therefore, for a given process the height of pulse is 
generally fixed and the necessary driving force must be obtained by 
increasing the pulse duration. Howevér, such action decreases the 
frequency content by lowering the frequency at which the first zero 
occurs. In most cases a compromise must be made between the requirements 
for driving ree and frequency content. Selecting a pulse with the 
"optimum" shape can partially compensate for the loss in frequency 
content through increasing the duration. However, most often it is 
the experience of the person conducting the test that Pinatiy determines 
the pulse shape, duration and amplitude that will be used. 

In the case of one-sided pulses, which are symmetrical 


about the maximum pulse amplitude, the frequency content curve is 
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characterized by one or more zeros. The classic case is the rectangular 
pulse for which the frequency content curve was shown in Figure l. As 
discussed previously, the frequency response diagram exhibits disconti- 
nuities at frequencies where the amplitude of the frequency content 
curve is low or zero. nowewen fHeemuplictde of the frequency content 
curve for symmetric pulses rises and falls between the zeros and the 
amplitude on each "hump" gradually decays as the frequency increases. 
Theoretically, it is possible to derive valid frequency response 
information between the zeros where the amplitude of these "humps" is 
sufficiently large to not affect results. 

Driefke (25) used the information derived between the 
zeros and neglected the erratic data calculated near the zeros. 
Hougen (41) indicated that Driefke (25) had conclusively demonstrated 
that good results could be computed on tree side or between the 
frequencies at which the input pulse exhibits a zero in its frequency 
content. However, Clements (12) stated "Although it is sometimes 
possible to recover reliable frequency response information between 
zeros of the frequency content, the author has found this is the 
exception rather than the rule for most practical tests, and dt Asenot 
recommended that the magnitude ratio and phase lag values be trusted 


past the first zero." These conflicting opinions will be considered 


later in connection with the results of this study. 


Sez Derivation of Equations to Evaluate the Fourier Transform 


The following treatment is restricted to the case where the 


process input x(t) begins at zero time and is closed, iveé., it is zero at 
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assumes a finite value for a finite time interval, 1, and returns to 
zero at the end of the interval. Further, the assumption is made that 
the process output response y(t) is of the same form, existing only for 
Oh=t Shy. after which it returns to its steady state value so closely 


that any difference can no longer be distinguished. With these assumptions 


Equation (3.2) becomes 


T2 : 
y(t) e IWe de 
; be fo) 
G (jw) T1 (325) 
x(t) e7Jjwt dt 
fo) 
Using the identity e7jwt . cos(wt) - j sin(wt) Equation C35) 


becomes 


T2 T2 
y(t) cos(wt) dt - j y(t) sin(wt) dt 
fe) oO (356) 


GaCjw) = in vk eeNetay <= 1 Rc er AA a 
i x(t) cos(wt) dt - j vA x(C)esin(wt)edt 
fe) Oo 


where the integration limits need extend only over the actual pulse 


WiLdths | }).and Tt 2. For convenience, Equation (3.6) can be written as: 


B 
D (377) 


where T2 
A y(t) cos(wt) dt (3, 8) 
re) 
2 2 
B as y(t) sin(wt) dt (3.9) 
() 
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Ty. 
Cc = X(t costwt) ae (3710) 


Ti 
D = x(t) sin(wt) dt (eb 


To obtain the frequency response diagram for a process 
which has been pulse tested, it is necessary to obtain the amplitude 
ratio and phase lag of G(jw). Multiplication of Equation (3.7) by the 


complex conjugate gives 


c iw = A = jB : C te jD = AC We BD + 4 AD = ABAU, Reet). 
he" C#qS iD D+ 9D C2R+ep2 biota? 
So 
. AC + BD 
Re(w ch pen RL C3213 
(w) Daa ( ) 
Im(w) = AD - BC (3.14) 
c2 + D2 


where Re(w) and Im(w) are the real and imaginary components of the process 
transfer function. It then can be shown from the theory of complex 


variables that the amplitude ratio and the phase lag of the process are 


given by 
AR (w) =\/Re2 (w) + Im2(w) (E15) 
Ger mee ) can ee) ee eee Ose oe (3.16) 


Re (w) 
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The frequency content A(w), of the input pulse is given 
by F [xt] where F (x(t) | is the Fourier transform of the 


input pulse. 


| Tl ks 
A(w) = x(t) eJ”" dt (3.17) 
Oo 
ot Tl 
x (Co ecos (we) dta=— j x(t) sin(wt) dt (e.18) 
Oo .@) ; 


(32.19) 
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| se 
The normalized frequency content is defined as A(w) x = A(w)/A(o) so 


evaluation of Equation (3.18) for w=o yields 


Tl 
A(o) = x(t) dt (3.20) 
Oo 


Combination of this expression with Equation (3.19) gives 
Wi 2 : 
: + _ (Gaz) 
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The computational problem becomes the numerical evaluation 





Aw). = 


of the integrals A, B, C and D using selected values of w and experimental 
pulse data. The amplitude ratio (AR) and phase lag (9) of the process 
pulse tested can then be readily determined using Equations (3.15) and 


(3.16). 





2 td Quadrature Formulas 





There are a number of methods described in the literature 
for obtaining numerical approximations to the transcendental integrals 
A, B, C and D. Draper, McKay and Lees (22) developed a method called 
the stepped curve or rectangular approximation which offers the advant- 
age of simplicity. Also, they presented a form of the trapezoidal 
approximation which was simplified by neglecting the first and last 
ordinates on the assumption they would be zero, i.e. the pulse was 
assumed to be closed. This modified trapezcidal approximation is 
considered to be a refinement over the stepped curve approximation and 
it has been used in a large number of the investigations reported in 
the literature. 

Dreifke (25) developed a trapezoidal approximation called 
TAFT which he felt offered a slight advantage over the methods suggested 
by Draper, McKay and Lees (22). 

Clements (12) used a trapezoidal approximation similar to 
the one introduced by Draper, McKay and Lees and a special quadrature 
developed by Filon (27). The problem of using quadratures to approx- 
imate the transcendental integrals A, B, C and D at higher frequencies 
was also discussed. Generally speaking, the product curves (x(t)sin 
(wt), Se ee etc.) oscillate so fast for large values of w that 
most. quadrature formulas break down unless minute integration steps 
are used. Clements described some correction functions which have been 
used in the past to compensate for inaccuracies which result when an 


inadequate number of samples are used to approximate these rapidly 
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oscillating curves. However, Lees and Dougherty (50) in 1967 concluded 
‘that these functions are of little significant value. 
In this work three methods for approximating the Fourier 
transform were used: 
a. Trapezoidal 
brerFilon 
c. Fast Fourier 
The application of each of these methods is discussed in 
the same order in the following text. 
The trapezoidal approximation used is the same as that 


used by Clements (12)... It simply involves applying the trapezoidal rule 


b 


/ ECO) de. AL (£0 /2 + f, + f,, ------------ + aa + f/2) 


directly to theintegrals im Equations “(3,38) to (3.11) inclusive. 


Where At is the sample interval used for f(t). 


Eee ies a2 ----— n, are the ordinate values of f(t) at each 
sample interval 
If the pulse is assumed closed, the values of fo and fn can be considered 
zero and Equations (3.8) to (3.11) can be written in the following form 


for easy evaluation using a computer. 


n-l 
A= At2 > VACKEeLS LL) meCOS(WKEEN.LZ) (322) 
k=1 
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een! 
BS eet 2 S y (kA t2) sin(wk A +£2) (325) 
=1 
aT . 
G= Atl 5 Sel A Ed). COS CWINZ\ EM) (3.24) 
ay 
m-1 
D=Atl > x (L.A tl) sinwiuad ep (3725) 
i=1 
Where n = total number of ordinate values used to approximate the 


output pulse function. 
m = total number of ordinate values used to approximate the 
input pulse function. 
The quadrature developed by Filon (27) was designed 
especially for approximating integrals of the general form 
b b 
f(t) sin(wt) dt and f(t) cos(wt) dt. It is based upon an 

a a 
approximation of the pulse curve using parabolic segments as are used in 
the Simpson's rule approximation. However, the coefficients of Simpson's 


rule (1/3, 2/3 and 4/3) are replaced by trigonometric functions of wAt 


where 


Ww frequency in radians/unit time 


Tale te the sample interval used for f(t) 
The advantage of Filon's quadrature over other more common methods lies 
in its independence of the value of w. Because the trigonometric 


integrations are performed analytically, the problem of rapidly 


oscillating product curves does not exist (12). 
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When Filon's quadrature is used to evaluate 


nt 
we x(t) sin(@wt) dt, the area under the curve x(t) is divided into an 
a 


odd number of subareas at intervals of At. 


Sonal 


and where 
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2n+1 E 


= x(b) sin(wb) 
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sin(@wt) dt = At] &]x(a) cos(wa) - x(b) 


cos (wb) ae B [Son] oF ¥ (Sa, 


These points are denoted as 


(3.26) 
(85 2,7:) 
(3.28) 


(3.29) 
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On the other hand, if 


Ij = x(a) cos(wa) 
Dy piteeyex(b) cos(wb) 
Then 
b 
x(t) cos(wije dt =, Zt of [x(a) sin(wa) - x(b) 
c 
a ; 
sin(wb)] + B [Son] a ¥ [San] (3.33) 


When © is less than about 0.35 radians, loss of significant 
digits causes inaccurate computation of Z, ye and x, so these 


quantities have to be determined by a Taylor's series expansion of 





Equations (3.29) through (3.31). The expansions given by Filon (28) are 
ware tie Tes ewe ba se (G23) 
45 315 4725 
2 

B = Pen ee Oe RETO) TEs R202 ee 8e Os a ees (3855) 

3 15 105 567 29975 
ee ames 0044 OOM SORE aia ial od (3.36) 

3 1s) 270 11340 997920 


When w tends to zero 9 tends to zero, soc, > and & 
tend to 0, 2/3 and 4/3, respectively, as can be seen from the equations 


above. In this case, the right hand side of Equation (3.32) reduces to 
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3 vet 28041 + 485, (3.37) 


which is Simpson's approximation. 

The above equations related to Filon's approximation can 
be readily programmed on a digital computer and used to solve the 
trigonometric integrals Avwibs Grandes). 

The Fast Fourier Transform (FFT) was applied in this work 
using a computer program supplied by Trinity University Computer Centre 
(for details see Section 5.4.2.3). The author of this thesis did not 
investigate the mathematical detail of the FFT, but information is 
avait veause 10 Che reader’ in References (9, 14, 18, 19, 31) and (48). The 
FFT was developed by Cooley and Tukey (19), especially for computing the 
discrete Fourier transform from a discrete series of time data. The 
principal advantage of the FFT over more conventional methods lies in a 
reduced calculation time. Where the trapezoidal and Filon's quadrature 
require Nn’ operations to calculate N frequency points from N time points, 
the FFT only requires N log, N operations (19). The time saving, however, 
does not come without restrictions. The value of N for the FFT must be 


a power of 2 and transform values are only calculated at frequencies given 





by 
w = 277i i) = 1,2, 3,05=----- N (3.38) 
NQAt 
where 
N = the number of points processed 


At = the sampling interval for the time séries 
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The FFT calculates one frequency point for every time Rice used. 
However, only half of these values are significant because the higher 
values lie beyond the folding (or Nyquist) frequency and are aliased by 
lower frequencies. From Equation (3.38) it can be seen that a large 
number of points is necessary to obtain a wide range of frequency values 
and the magnitude of 4 t determines the highest frequency value 
calculated. As A\ t becomes larger, with a fixed value for N, the span 
of frequency values shifts toward the lower end of the frequency spectrum. 
Consequently, the values of N and AV t must be carefully chosen to ensure 
that the Fourier transform will be evaluated over the frequency range of 
interest. 

In this work the FFT was used in the same manner as the 
trapezoidal and Filon quadrature. That is, the real and imaginary parts 
of the Fourier transform were evaluated for the output and input pulses 

(integrals A, B, C and D, respectively) and the results were combined into 


an amplitude ratio and phase lag using Equations (3.13) through (3.16). 


i Fa Error of Closure on Output Pulse 


Frequently, industrial processes respond slowly to disturbances and, 
thus, the response to a pulse input exhibits a slow decay to the original 
steady state. In such cases the duration of the output pulse becomes 
excessive and the temptation exists to terminate recording the output 
prematurely creating an error of closure. Since the development of 
Equation (3.5) assumes that the process has been allowed to return to 


its original steady state, use of data with an error of closure introduces 
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inaccuracies in the frequency response results obtained. 

Hougen and Walsh (42) report that inaccuracies appear with rather 
small errors of closure. The significant effect is an advancing of the 
low frequency results which tends to give steeper frequency response 
piots and a reduced steady state gain or zero frequency amplitude. 
Clements (12) made the same observations. Driefke, Hougen and Mesmer (24) 
reported on the effect of error of closure using data from an analog 
simulation of a second order system with various damping ratios. Their 
results demonstrated that as the error of closure increased, the amount 
of data scatter at the higher frequencies increased. 

For some physical processes, a hysteresis or dead band makes closing 
of the output pulse impossible to achieve. In such a case Dreifke and 
Hougen (23) recommend the use of a technique which permits elimination 
of the closed output pulse requirement through some additional data 
processing. Basically, this technique replaces the closed pulse 
requirement with a requirement for a zero first derivative on the tail 
of the pulse. lougen (40) describes this technique briefly and reports 
that Nyquist, Schindler and Gilbert (59) have verified it in their 
extension of Schechter's and Wissler's (70) method of procuring 


frequency response information from step forcing 


St Spectral Smoothing 


In noise analysis or spectral analysis, it is common practice to 
apply filters known as lag windows. These filters act as windows of 
variable transmission modifying the raw data differently for different 
lags. The purpose of these filters is generally to reduce the noise 


in the Fourier transform of a particular time function. 
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When time is considered a continuous variable and computation is 
by analog devices, there is an advantage in applying the lag window to 
the time data before transformation (4). However, when time is 
considered to be discrete and computation is performed by digital means, 
it becomes advantageous to transform the data and then apply the 
smoothing (4). This is because the transforms of the lag windows are 
sums of Dirac delta functions at appropriate spacings so smoothing can 
be done by means of convolution (4). This procedure is simple to perform 
since convolution means smoothing only by weighting factors (4). 
Hutchinson and Shelton (45) used spectral smoothing applied after 
transformation because the Fourier transforms were blurred due to 
truncation of time data. Wollaston and Swanson (78) applied a special 
spectral window to results obtained by applying pulse, step and random 
noise inputs to analog simulations of various chemical processes. 

In this study spectral smoothing was investigated using the methods 
outlined by Blackman (4) which were based on the earlier work of Blackman 
and Tukey (5). Three methods were programmed: 

a. Hanning - using the weighting factors 0.25, 0.50, 0.25 
b. Hamming - using the weighting factors 0.23, 0.54, 0.23 
c. Combination - involves applying the Henn ite method and then 

smoothing oti more with weights of 0.1t, 0.68, 0.16 

The programs used to apply these different methods of smoothing are 


discussed in Section 5.4.2.4. 
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IV. THEORETICAL TESTS 


4.1 Introduction 

In order to study pulse testing and verify the computer programs 
used to analyze pulse data, it was necessary to erat some accurate 
pulse data from known systems. The procedure discussed in this chapter 


were used to create the data. 


4.2 Generation of Theoretical Data 

In the past, most, if not all, studies of pulse testing have used 
off-line computers to analyze the data. With this procedure the pulse 
data was usually taken from analog recordings and punched on cards for 
computer processing. In most cases, the test data from known systems was 
obtained by pulse testing analog simulations of known systems. 

In this work the on-line digital computer provided the facility to 
read pulse data directly from the process and store it in disk files. 
In order to test the data analysis programs data from known systems was 
read into the same disk files as were used for storing the experimental 
pulse test data. The program TSTFR, which is listed in Appendix IIT, 
was written for this purpose. As written, the program is limited to a 
rectangular input pulse which can be used to force a first order, two 
cascaded first order systems or a second order system. Basically, the 
program generates the data by evaluating time dependent equations for 
the input and output pulses at increasing increment times. The equations 
for the output pulse are those presented by Buckley (10). The program 


provides complete flexibility with respect to time increment, time 
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constants, steady state gain, damping ratio, input pulse duration and 


amplitude. 


a3 | First Otder System 





The procedure used to generate pulse data for a first order system 
can be determined from the listing of program TSTFR. In this work a 
first order system with a time constent of 5.0 seconds was used to study 
Sheveirect of input pulse duration in pulse testing. Using a constant 
time sample interval of 0.1 seconds, pulse data was generated for input 
Huleeeduratsons of 1.2.5; 5, 10 ra 25 seconds. In addition, data was 


generated for a pulse duration of 75 seconds with a sample interval of 


O,2 seconds. 


4.4 Two Cascaded First Order Systems 





The procedure used to generate pulse data for two cascaded first 
order systemscan also be determined from the listing of program TSTFR. 
In this work only one example of pulse testing of cascaded first order 
systems was included and in this case time constants of Z and 10 seconds 


were used. 


4.5 _Second Order System_ 

The procedure used to generate pulse data for a second order 
system can also be determined from the listing of program TSTFR. In 
this work only one example of pulse testing of a second order system 
was included and it was performed for a damping ratio of 0.1 and a 


natural frequency of 0.5 radions per second, 
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It should be noted that the time constant for the second order 
system (referred to in the listing of program TSTFR) is the reciprocal 


of the natural frequency of the system. 
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NE EXPERIMENTAL WORK 


Sa Introduction 

The principal objective of this thesis was to investigate the 
potential of pulse testing as a technique to characterize the dynamics 
of an industrial process. The process chosen for the investigation was 
a fluid - fluid concentric tube heat exchanger fabricated from standard 
copper tubing. It was operated in the countercurrent mode using water 
for both streams with the shell stream the hotter of the two. Because 
of Sine imitators. the dynamic characterization was limited to the 
response of the shell outlet temperature for changes in the tube flow. 
However, the heat exchanger was constructed to permit investigation of 
the other three possible flow-temperature transfer functions. 

The operation and testing of the experimental heat exchanger was 
done entirely using the department's IBM 1800 Data Acquisition and 
Control System (DACS): Three variables: (a) tube flow, (b) shell flow 
and (c) shell inlet temperature were controlled by means of the Direct 
Digital Control (DDC) algorithms available on the IBM 1800. The tube 
inlet temperature was uncontrolled since the tube fluid was provided by 
the building domestic water supply which remained reasonably constant. 

The computer was programmed so that prior to an experimental run 
a heat balance for the heat exchanger was calculated at specified 
intervals of real time. This data was used as a simple but effective 


means of determining when steady state conditions had been reached. 
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The experimental pulse was introduced into the tube flow through 
a control valve manipulated under program control using the computer. 
The tube flow and the shell outlet temperature response resulting from 
the valve position change were measured and stored by the computer 


system at a rate of forty samples per second. 


5.2 Equipment 
5.2.1 General 

The test heat exchanger system was designed to utilize the 
buildings constant head dine Wewetie se water recirculating system. 
However, a one year delay in the completion of the constant head system 
forced the use of domestic water and the dumping of the heat exchanger 
effluent to drain. 

Basically, the system, as used, consisted of two separate 
domestic water supply lines which fed water to the tube and shell of the 
test heat exchanger which discharged both effluent streams into a common 
drain. The water for the tube stream was pumped through a control valve 
and a flow turbine meter before it entered the test heat exchanger. The 
water for the shell stream was pumped through a flow turbine meter, a 
steam-water heat exchanger and a control valve before it reached the test 
heat exchanger. The steam-water heat exchanger was used to provide a 
controlled hot water temperature at the shell inlet on the Eeetiiese 
exchanger. 

A photograph of the test equipment may be seen in 


Figure 2. 
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Figure 2 - Test Equipment 


= yar ane Description of Equipment’ 





Figure 3 is a schematic diagram of the test heat exchanger 
system which lists each component of the system by means of a symbolic 
name. Where duplication of system components on the tube and shell 
streams occurs, the symbols end with a 1 or 2 to indicate association 
with the tube or shell stream respectively. Table 1] contains an 
alphabetical listing of the symbols shown in Figure 3. For each item 
there is an explanation of the function of the component, its specifi- 
cations and its manufacturer. Where information concerning components 
is desired beyond the scope of that provided in Table 1, the reader will 
find a list of the manufacturer's addresses in Table IV-A. The following 
material outlines some of the factors considered in the design and/or 


selection of the test heat exchanger and associated equipment. 
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TABLE 1 


LIST OF EXPERIMENTAL, EQUIPMENT 


SYMBOL DESCRIPTION 
BV1 By-pass valve pump l. 


(Whitey No. 7RF8, 4'' female NPT, brass 
Carer ien)") 

BV2 By-pass valve pump 2. 
(Same as BV1) 

Cl On-off temperature controller for reference 
both on tube outlet. 

(Assembled at Technical Services Electronics 
Division as per General Electric Application 
Note 200.45, April, 1966) (W/o 5/25) 

C2 On-off temperature controller for reference 
bath on shell outlet. 
(Same as Cl) 

CR1 Calrod heater for tube outlet reference bath. 
(Canadian General Electric, 750 watts, 8 
inches long, 1 inch male NPT.) 

CR2 Calrod heater for tube outlet reference bath. 
(Same as CR1.) 

FCl Flow control valve for tube stream (3/4" 
Fisher type 546 - 657A - 3560 control valve, 
single port, linear valve plug, size 30 
actuator, type 3560 valve positioner (3-15 psi) 
type 546 electro-pneumatic transducer, 4-20 ma) 


(Serial No. CN 964454) 
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SYMBOL 


FC2 


FC5 


FCSA 


FT1 


~6e 


TABLE 1 (Cont'd) 


LIST OF EXPERIMENTAL EQUIPMENT 


DESCRIPTION 
Flow control valve for shell stream. 
(Same as FC 1) (Serial No. CN 96444A) 
Flow control valve for steam to steam heat 


4 


exchanger. 


-(15" Fisher type 657A control valve, single 


port, V-pup valve plug, size 34 actuator 
3-15 psi) (Serial No. CN 96447) 
10°F superheat 


Temp. = 348°F 


Pi = 100 psig, P2 8C psig 

Qmax. = 2400 1b./hr. 

Positioner for steam flow control valve. 
(Honeywell model HE 5131 - 1 (685435 -002) 
electro-pneumatic positioner 4-20 ma.) 

Flow transmitter for tube stream, 

(Flow Technology, Model FT-12M22-LJ, size 3/4 
inch, with 3/4 inch MS-33656-12, 37° maie flared 
tube fittings’ 303 e-stl., 430-F setl.srotor 


and Graphitar #3 journal bearing. Range: 1.5 


to 22.0 gpm (US) water at 60°F.) 


=hye 


TABLE 1 (Cont'd) 


LIST OF EXPERIMENTAL EQUIPMENT 


SYMROL DESCRIPTION 
FT2 Flow transmitter for tube stream. 


(Flow Technology, Model FT-16M60-LJ, size 

1 inch with 1 inch MS-33656-16, 37° male flared 

tube fittings, and material as for FT2. Range: 
© 1.5 to 40.0 gpm (US) water at 60°F.) 

FV1 & FV2 Two Channel Pulse Integrator. 

(Technical Services Department, Electronics 
Division, University of Alberta. Special 
device fabricated to integrate pulses from 
flow turbines and produce a voltage (0 - 5V) 
proportional to the number of pulses counted) 
(W/O 5769) (A similar device can be purchased 
from Flow Techaology.) 

M1 Mixer motor for tube stream constant temperature 
bath. (Redmond electric motor model AK4L36J, 
type AK 4, 1/20 hp, 1.6 amps) 

M2 Mixer motor for shell stream constant temperature 
bath. 

(Same as Ml.) 

OV1 Hand valve on outlet of tube stream. 

(3/4 inch Ladish Globe Valve, Model 7272, with 
V-Port type: plug, «travel Podicetns and flange 


connections. ) 
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TABLE 1 (Gent. 2) 


LIST OF EXPERIMENTAL EQUIPMEN 


DESCRIPTION 
Hand valve on outlet of shell stream 
(1 inch valve same as OV1) 
Pump for tube fluid 
(Weinman Model 5ACK20P Centrifugal 
Unipump, with 5 ~- 1/8 inch diameter 
impeller 4731, 2 hp 3/60/440 volt 3600 rpm 
motor, and sas to déliver 25 USGRM at 
tUsert. T.a..) (Serial No. 56) 
Pump for sheli fluid 
(Weinman Model 6ACK50P es Unipump, 
with 5 - 3/4 inch diameter impeller 4828, 
5 HP 3/60/440 eve 3600 RPM, and a capacity 
to deliver 12 USGPM water at 135 ft. T.D.H. 
and 40 USGPM at 75 ft. T. Di Ho) Gerial Ne, 
8039 AH) 
Push button to start pump motor on tube stream. 
(General Electric type CR 104 push button with 
PUN indicator Aiehee) | 
Push button to start pump motor on shell stream. 


(Same as PBl1) 
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TABLE 1 (Cont'd) 
LIST OF EXPERIMENTAL EQUIPMENT 


_SYMBOL DESCRIPTION 

Rl Speed control for mixer motor on reference 
both on tube stream outlet. 
(Powerstat type 10B variable autotransformer, 
2% amps.) 

R2 Same as Rl but for shell stream. 
(Same as Rl.) 

Sl Strainer on water supply of tube stream, 
(Keckley 2 inch, 125 lb. Y-pattern dirt 
strainer with 30 mesh screen.) 


$2 Strainer on water supply of shell st: 


ry 
(D 
Hy) 
= 


(1% inch same as $1.) 

$3 Strainer on condensate return line. 
(Same as Si.) 

S4 Strainer on condensate by-pass. 

(Same as Sl except 3/4 inch.) 

SBl Motor starting box for tube fluid pump. 
(General Electric CR 106 magnetic motor 
starter, size DOAAP3. ) 

SB2 Motor starting box for shell fluid pump. 


(Same as SBl, except size DIAAP3.) 
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TABLE 1 (Cont'd) 
LIST OF EXPERIMENTAL EQUIPMENT 


SYMBOL DESCRIPTION 
SH1 Shaper amplifier for frequency signal from 
tube flow turbine. 
(Flow Technology Inc., Pulse Rate Amplifier, 
Model PRA - 101, output; square wave 0 to 10 
volts, frequency proportional to turbine rpm) 
SH2 Shaper amplifier for frequency signal from 
shell flow turbine. 
(Same as SH1) 
SHK Steam heat exchanger to generate hot water 
supply for shell stream. 
(Taco converter, Model No. 82105, 2 pass, 
with capacity of 40 gpm (US) with a temperature 
rise 60°F to 200°F using 80 psi steam.) 
Inside heat transfer coefficient = 733 BTU/hr. - 
ft.2 - OF, Outside heat transfer coefficient 
= 1500 BTU/hr. -ft.2-°F, 
Overall heat transter coefficient 492.4 BTU/hr. - 
ft.2-F, Heating surface area 38.9 sq. ft. 
Unit diameter 8" 
Tubing 3/4" - 18 ga copper 


Overall length - 6 ft. 
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TABLE 1 “(Cont’d) 


LIST OF EXPERIMENTAL EQUIPMENT 


DESCRIPTION 
Steam trap on condensate return line. 
(Sarco, Type FTS-4C) 
Float and thermostatic steam trap with Zo 
ports, capacity of 4720 lbs. of condensate 
per hour at 75 psi, and a working pressure 
ee oe ps i) 
Steam trap on condensate by-pass line. 
(Sarco, Type FT-125, float and thermostatic 
steam trap, with 3/4 inch ports, a capacity 
of 970 pounds of condensate per hour at 75 
psi, and a working pressure of 0-125 psi.) 
Resistance bulb thermometer. 
(Selected to be compatible with temperature 
controller Cl as per General Electric 
Application Note 200.45, April 1966.) 
Resistance Bulb thermometer. 
(Same as Tl but used with C2.) 
Thermocouples located at strategic points along 
tube stream. 
(Thermo-Electric miniature ceramocouple assembles 


type 5J0110L, with type J calibration, MLP 
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TABLE 1 (Cont'd) 


LIST OF EXPERIMENTAL EQUIPMENT 


DESCRIPTION 
connector and readjustable bushing for 1/16 
inch 0.D. sheath. Response time for 63.2% 
of change from room temperature to boiling 
water 0.09 seconds.) 
Thermocouples located at strategic points 
along shell stream. 
(Same as for Tl.) 
Concentric double pipe heat exchanger. 
(See text and equipment drawings in 
Appendix IV for further details.) 
Thermopile on tube outlet. 
(Scientific Products Corporation, Flexible 
Cable Thermopile, Model OTP (fast response), 
with 10 elements in series coated with a 2-inch 
layer of plastic, overall length 2 feet.) 
Note: This thermopile failed before tests 
were completed and a copy had to be fabricated 
and used. See the text for details. 
Thermopile on shell outlet. 
(Same as for TP1l but with 25 elements in series) 


Note: See the note under TPl. 
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The general size of the test heat exchanger, THX, was 
determined after a survey of the publications on the dynamic testing 
of concentric tube heat exchangers. The work which most strongly 
influenced the choice of size was that of Fisher (28). He showed that 
as the heat exchanger size (equivalent diameter) increases, the amount 
of axial mixing decreases so that the experimentally derived amplitude 
ratio and phase lag curves agree more closely with those determined 
from a mathematical model which is based upon the assumption of zero 
axial mixing. To date the majority of the models that have been 
developed utilize this assumption. In his work, Fisher used the same 
size of heat exchanger as used by Stermole (74, 75) (1 in. x 2 in. x 
14.9 £t.) and obtained the amplitude ratio and phase lag curves using 
sinusoidal flow forcing. A comparison of eee oneal results with 
values predicted from the mathematical model showed close agreement. 
The size of the heat exchanger used petite work was selected to be of 
the’ same order of size as that used by Stermole (74, 75) so that 
comparison of experimental results with predictions from mathematical 
models would be possible. 

Originally three heat exchangers were built, however, due 
to lack of time testing was limited to only the largest exchanger. The 
three heat exchangers were designed to be easily interchanged. Further 
details on the test heat exchangers are given in Appendix IV. 

The Y-strainers (Sl to S4) were installed on the water 
inlets and condensate outlets as a precaution against debris contamin- 


ating critical components of the equipment. 






ah haedes ‘og ‘a iS 


























raat . ana? ee eRe 
‘ * - m ? 
es ib: cabs ml aie i! tn Yorvua «a esta hoele than 
; uf Re = ‘ , Le 7. - ns . Naa oe a hy ri ig Shee F a Po o 
La.iace geidw age gv. . weaegcn thed adu3 a8% n20sa00® io 
‘- ao oe “ Vertes! F ty ei! a G2 os St a5 7 he cy 4 ees do ae “ae s x 
: »tte Yeo voieds ada ‘baoneuthan - 
sro fe j rin ; - - Ee, ing ¥ =s? Bs! ne % - Me nt ; 


Jtuje) oet2 iegnerioe’ Jest sdd ae iy 
he = Se eS brats Vatu, 


rf ' 5 3 See) Ge ebeege*tods anixia [aixa to 
ASS sane oly’ seh ISS a 


; ) > “49 Taga veya 38! ‘senda bas*oijst 


‘4 7 . os 7 _ 
oe! pohiw fdbad Phos Feed Jom 8 ‘medt’ 
; ok Retr 
> 
a old jivotenm ada 238b oF ' gatxim [sixes 


a had ¥. 


i et = 
. ; Pity : 2 ats > 
; el oe * , ‘ . ae od 


: vate aid? entltde hegolevab 


“ . on ne h oS) Eu 
7 , ; : " ~ es, ; i we ee ied a . > 1 
, , ws vrtoss tact to otis 
s+ 71 
. . +. - Py sae ce ~ s . *" i “aS 274 as 3 pat 
A r . ' 
cs . $ 4 . o ™> Pr 
« ’ ‘> bee (32 : ~ 
- + . ig. * ta BS a | 7 
: . iE "~~ ee ot * 4 $4 <= Sot 3 


e iat + - <= ie Pe ae a™ a 
: soda ax } mST Potoibeng Pema tncide 
G * z Ges - a a | “= 
— ; 2% zaed ‘add to asre sit 
« z _ o 


¢ Sears ig tabse siiee ‘add 


é ‘ 2 ° <. ts ? 
. ne = = ee - 


) : ; - % 10 neskteqnoa - 


"+ « . o\« : be “ - 2 " ¥ 
. a> ~ ~ 


57 ; : ,sidlesog od Biaow alebom 
: 7 : : .? A “et 3th eee 


, - y ; ‘ - ° 2 


ae 





44ab us f ae ’ Bog , » ~Apay oe ie: Yl Dass eM. 











a A 4 . + fo 4.7 * Wu's a Ue, - a ia ~ 
a o8f ..3a2Rpumlsxe ~ tLe yy ou? bartiith gaw ania: 4° sai to dost os, 
> Pe ; BYee) ote ae: ive - eee a _* < E Ag Pele +08 © t-* ti Oe ne GT 

tiaras CR I es aa \ 484 5 od & giasb6 Siow ates girait 94s jasd. sot - 
oh - +t - Pe | ‘ ‘ i - 7 = 
Pf OB vntbangih ni, nova, or nanan axe dead sa94 ie ok wi, 
ag oh e a fic e a of hed yi zi 
P a a 

ty ge Git) ii Biadord. avon (wa eo ia) gelbsiacén gar st 


Oy 4 See S ‘, Pity Qs bake e.. Jah ue. 


| 





























=5lee 


The pumps (Pi and P2) were necessary on both fluid 
streams to boost the pressure so that high Reynolds numbers could be 
achieved. The particular pumps used were chosen because of their 
relatively flat performance eurve stand they were normally operated 
on the flattest portion of these curves. In this way, the pumps 
provided a relatively constant head during the flow disturbance 
introduced by a pulse test. 

The flow control valves (FCl and FC2), which have linear 
characteristic plugs, were selected on the basis of the frequency 
response curves provided by the manufacturer. The amplitude ratio 
and phase lag were given for sinusoidal forcing amplitudes of 1.5, 5, 
10, 20 and 40 percent of span with a mean level of 50 percent of span. 
The valves are relatively fast acting and were considered to be the 
best choice for implementing flow pulses of specified shapes through 
computer generated signals. 

Flow turbine meters FT1 and FT2 were used to measure the 
flow in the tube and shell streams respectively. The signal from the 
meters was normally used for flow control but during experimental 
tests the signal was also used for experimental data acquisition. 

The meter type and manufacturer were chosen on the basis of a 
recommendation made by Dr. Joel 0. Hougen in personal correspondence 
witht the “author. o1Dr? Hougen “stated "9h. ne. We have used turbine 
meters extensively for flow measurement. They are especially geod 

for measuring pulses in flow. I would use nothing else 22. ....' "He 
also indicated that the turbine meters chosen for this work had proven 
quite satisfactory for pulse testing. Shechiieations supplied by the 


manufacturer for the turbine meters state that the time constant on 
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the basis of a step change is three milliseconds. 
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The turbine meters provide a pulse~like signal with 
a frequency that is linearly proportional to the flow rate measured. 
To render this signal more suitable for measurement, shaper amplifiers 
SH1 and SH2 were also purchased from the turbine manufacturer. These 
units shape the turbine pulse into a square wave signal of 0 to 10 
volts with the same frequency as the original signal. Original plans 
were to have the computer system count these pulses using software to 
convert them to the equivalent flow, however, further investigation 
revealed that the existing DDC package did not provide the facility 
to control from a pulse count. For this reason, a two channel analog 
pulse integrator (FV1 - FV2Z) was built by the Technical Services 
Department of the University of Alberta to convert the pulse frequency 
to a proportional voltage between 0 and 5 volts. The slight non- 
linearity of this unit made it somewhat less than satisfactory for 
DDC control because a linear conversion from voltage to engineering 
units was necessary. The resultant errors introduced in the flow rates 
measured for control purposes were in the order of one percent. This 
error affected the heat balance calculations since they were performed 
on the measurements used by the DDC loops. However, the flow data 
used in the pulse analysis was not affected by the non-linearity 
because conversion from voltage to flow units was achieved using a 
third order least squares polynomial fit to the pulse integrator 
calibration data, (See Section 5.4.2.7 for information on the least 


Squares program.) The- calibration data was obtained using a square 
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wave oscillator, digital frequency meter and digital volt meter. A 
separate calibration was made for each channel. 

The thermopiles TP1l and TP2 were required to detect the 
small temperature changes resulting from flow pulses. Reports in the 
literature indicate that construction of these units is rather 
difficult. Debolt (21) devoted sufficient time in construction of 
his thermopile to warrant including in his thesis an excellent 
description of the procedure he used. Because of the possible 
difficulties in construction, it was decided that the thermopiles used 
should be purchased from a commercial manufacturer. Two chromel - 
constantan thermopiles were purchased; one with 25 probes and one with 
10 probes. Both were supplied with an overall cable length of two feet 
with a % x 4 inch stainless steel sheath on each end and a flexible 
plastic sheath in the middle. The two-foot length was chosen because 
electrical noise increases with the cable length. The sheath at the 
cold junction end (reference) was closed off so that the probes were 
not visible. On the hot junction (fast response) end the probes 
were exposed 3/32" and coated in a plastic material. A seal was 
obtained at this end by using an expoxy material packed around the 
probe wires inside the sheath. A single chromel ~- constanton 
reference thermocouple was included in the reference end for measure- 
ment of the absolute temperature at that point. Four terminal screws 
on a block were used to connect lead wires for the reference 
thermocouple and the thermopile. 

The thermopiles were mounted with the hot junction 
immersed in the heat exchanger and the cold junction in the reference 


bath. A seal was obtained on the heat exchanger stream by means of 
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a compression fitting supplied with the thermopile. This fitting 
allowed the depth to which the thermopile probes were inserted into 
the stream to be adjusted. Since the steel sheath diameters for both 
thermopiles were identical, it was a simple matter to change the 
thermopile from one stream to the other. 

To secure the thermopile compression fitting in the end 
of the heat exchanger pipe, two special supports were fabricated. 

They were designed to perform a secondary function; that of reducing 
thermal noise which results from hot and cold "pockets" of fluid 
alternately striking the thermopile probes. Several reports of 
difficulties with thermal noise from thermopiles appear in the 
literature. Debolt (21), Cohen and Johnson (15) and Fisher (28) were 
among those who attempted to solve the thermal noise problem. Fisher's 
approach seemed the most successful and was successfully applied here. 
He placed a wad of pot cleaning material upstream to thoroughly mix the 
fluid before it reached the probes. Details on the supports are given 
in Appendix IV. 

Unfortunately, during the check-out of the heat exchanger 
system and its hook up with the computer system, the epoxy material sur- 
rounding the hot junction probes of the thermopiles began to crack 
causing a short circuit in the thermopiles. Since the repair period 
provided by the manufacturer was excessive, a five probe copper constantan 
thermopile was fabricated as a copy of the manufactured unit. This therm- 
opile was used in conjunction with a chromel - constantan reference ther- 
mocouple. The change resulted in programming changes indicated in 
Section 5.4.2.1 and in program MVIMP shown in Appendix III, but it did 


not require any changes on the heat exchanger system. 
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The reference baths (RB1 and RB2) used for the 
thermopiles were fabricated from an 8-inch length of 8-inch schedule 
80 black pipe with the top and bottom cut from }" steel plate. The 
heavy gauge metal added to the heat capacity of the bath so that the 
on-off controllers, Cl and C2, could easily maintain a constant 
temperature in the range from 70 to 200°F without insulation. Ethylene 
glycol was used as the fluid in the baths to eliminate rusting. 

Ceramic packed iron constantan thermocouples mounted in 
a 1/16 inch OD sheath (TCl and TC2) were used for temperature 
measurements at various points in the system. The thermocouples were 
mounted as shown in Appendix IV. 

The shell water was heated by a commercial steam - water 
heat exchanger (SHX). The exchanger was sized to raise the temperature 
from 60 to 180°F for a water flow of 80 gallons per minute (US) using 
80 psi steam. This flow rate was more than twice the rate actually 
attainable through the shell side of the test heat exchanger. The 
exchanger was over-sized purposely in an effort to minimize any 
changes which were likely to occur in the shell inlet temperature when 
the shell stream was flow forced. 

The temperature control valve on the steam (FCS) was 
equipped with an equal percentage plug and an electro-pneumatic 
positioner (FCSA). The control valve was sized on the basis of the 
heat exchanger specifications. 

Two steam traps were used for condensate return. The 


main trap, STA, passed condensate into an overheat condensate return 
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line. However, if the pressure in the jacket of the heat exchanger, 
SHX, was insufficient to lift the condensate inte the return header, 
then trap STA would flood and the smaller secondary trap, STB, which 

is positioned with its inlet four inches above that of trap STA, ee 
the condensate to drain. Both traps which were the float and thermo- 
static type, were chosen because of the wide range of steam pressures 


over which they were designed to operate. 


5.3 Real-Time Use of the IBM 1800 Data Acquisition and Control 
System _ 


Selene Genera) 

A data acquisition and control system (DACS) such as 
the IBM 1800 used in the work for this thesis, hes the basic features 
which make it possible to monitor and manipulate process variables in 
almost any fashion desired. The limiting factor for any particular 
implementation is the existing software which may require changes that 

ue 
are simple or extremely complex. The author's approach to the use of 
the DACS for this work evolved from the features that were available 
on the system in late 1968. The resulting programs will not 
necessarily be the most efficient for use on other systems, even 
other IBM 1800 systems. 

The DACS was programmed to allow pulse test experiments 
to be conducted entirely from within the digital computer laboratory. 
At some time during an experimental run the DACS was able to perform 
the following basic operations: 


a. control process variables to a set point 


b. calculate an on-line heat balance 


on 
cL 





















x 
on a 


Een deSae Seelst Ws sa Se aL eR ae sessile co reap 4 * nt 
-tebsyl fae haa ou. & yl. Detaseheay ayps Nae tt cas sue enya 


tojdw 8? wher shiwese asf gue Ct rs eek 4 foe ACB AI nods - 
. / As. oes 2o: se 7 POLS . 4 ieee SET ‘3 aiing RAT a a ll 
we laf eh ' af os Zs ; a os oo hes 4 Shes ey te 4 *: seg . rE Ln ae Easy seman naomi 


eee. (LES Re 1 eyeet § bas $64 ‘DY taytsrec RY eGo . 0 es - nts oAgnae 
i a JR Dot 1@ 3+ bares anh t4wi gees Ce oe _ 
° P ‘ 5 i. ., ‘ ean 2 : Bis Mige ty 


- F q i. ef fom JOS! 04. aA to sal sult fkan £.2 
MOTOS. 


— - - a @ 
t ed % z t ry _ 
iso 4) eo a4 
¥ aa 
¥ * “ °2 < ane 
vithe O25 i eh A 2 
. 4 ay > oe $0 % - v4 5 a ze ne 5. -*y % afer #4 m2 
+} b i wir eli ri as ag T Het otf? 
ee 7 o= ee ic ¥ ‘eer? ie Cotes a +15 7 s ewe 
oi ofdheweq ob oka epi : 
. o A sd rs + ie 
3 4 4 


tok ne 1 ebeees viabertes to oiqule. 9th ; 
2 a *} : ee 
: 7 ¥ Cove \ 4) 40% 20007 eZ 
; [Pron * : ‘ far ie le + ar . 48+ 
rors aut pear at ee! seal Ma rn 388 ‘ests ng 
Oe : a ae Sa ; “voce ave Saal 


ra m7 ee) + JHB AMS Deas s42 ad <a 


juadaes 0B: MAT ‘oe 
ir nly Bi iv fia: ahd J 


BOGSC TAGs Whe? sy fsy wlio ot booed $y. enna ‘ona ool 








ly ‘ _ = Py ‘ ‘ t. 8 : > os 
- MeMINWSAL Jaivygws Feshgth ots kote qe x8 deri tas 
; A a! Unga a at 
Gd aide, iv nai ‘od awed tioawonangie xa , 
a Sind > > 7a, Wy ia pen Ss 





; Pnaaee 


-~50- 


c. control and manipulate a flow valve for pulse tests 
d. acquire and store data from the process at a rapid sample 
rate 
The control to a setpoint utilized the standard direct digital 
control (DDC) software package supplied with the system. The heat 
balance and the execution of pulse tests was achieved with FORTRAN 
programs written by the author while the rapid data acquisition was 


made possible by a sub-routine written by the DACS Centre staff. 


a ep Control and Data Requisition 

The department's IBM 1800 DACS used the IBM DDC package 
with some modifications which were introduced by ee DACS Centre 
staff. A general description of eie features of this package are 
provided here in an Sere to simplify the explanation of the 
organization of the DACS - heat exchanger interface. 

Figure 4 is a schematic diagram showing the various 
elements which would constitute a typical control loop for the DACS, 
including both the hardware and software. Hardware components which 
were electrically connected and were physically in close proximity 
are shown connected by straight lines. Those which were electrically 
connected but were physically separated, are joined by dotted lines? 
The process operators console (POC) and the sample and hold aupiie teen 
called Current Output Stations (COS), were not electrically connected 
but were in close proximity physically in Brice to simplify operation 
of the process. The software, which permanently resided in the core 


memory of the DACS, was divided into four categories represented by 
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5.3.2.1 Hardware in a Control Loop 

In DDC control the function of the hardware is to 
provide a means whereby the software can communicate directly with the 
physical process. Figure 4 illustrates the components involved with the 
direction of information flow shown by arrows. 

For the input, the process transducer signal CPL), 
generally a voltage, is transmitted via a lead wire from the process to 
a pair of terminals in the DACS terminal box. The signal remains at this 
point until the DDC software references the information. At the time of 
request, the multiplexes (M), selects the terminal pair and permits the 
signal to be passed through to the analog to digital converter, (ADC), 
which changes it into a binary number acceptable to the computer. 

For the output, a digital value, which has been 
calculated by the DDC software, must be passed to the process actuator, 
(PA). The first stage of the sequence involves a digital to analog 
converter, (DAC), which generates a suitable analog signal for the 
sample and hold amplifier called a current output station. KCOS) -ouebe 
COS supplies to the PA a continuous milliampere signal that is equivalent 
to the latest value transmitted from the DAC. This value is updated with 
each cycle of the control calculations. 

With the hardware configuration just described, 
the same M, ADC and DAC are shared by all the control loops while an 
individual PT, PA terminal board pair and COS are required for each 
loop. Using this configuration, it is possible for the DDC software to 


simultaneously maintain control of several loops by addressing each 
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respective input and output in order and performing the necessary control 


calculations. 


5.3.2.2 Software in a Control Loop 

The DDC package used by ene DACS features a 
relatively simple technique for building control loops. Basically the 
parameters which specify the control loop are punched onto cards (up to 
three may be required) in a coded form and the cards are then read into 
the DACS via the card reader. The information coded is divided into 
words, each of which, in part or in whole, specify such information as 
the address of the input or output, measurement, setpoint, alarm limits, 
alarm status, type of control action, engineering units, etc. The 
information for all of the control loops which have been specified is 
stored in the core memory of the computer in an area calied the process 
variable record table (PVRT). For a given loop, some of the words will 
be changed every time the control calculations are made (e.g., measure- 
ment, error, output), other words will generally be changed only by the 
operator (e.2., setpoint, alarm limits, control constants), ete stLiL 
others will rarely be changed (e.g., address for measurement or output, 
loop identification on number). 

The types of loops which could be formed may be 
divided into three general categories: 

a, COncrol 
b. data acquisition 
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The first type is more or less self-explanatory; the measurement was 
read, then the desired output was calculated and transmitted to the 
process. The second type was used ee the value of a process variable 
was required. In this case a standard control loop was formed but the 
parameters associated with the type of control and the output were not 
specified. The third type made it possible to obtain the time history 
of the measurement, setpoint, error or output from some other loop. 
Basically, the variable of interest was read and stored in a buffer 
each time the control calculations updated the value. 

The principle for the operation of the DDC 
software can best be explained by reference to Figure 4. Here the PVRT, 
which contained the up-to-date information for each loop, supplied 
information to and received information from three sources. The first, 
DDC, updated the PVRT continually and automatically by scanning the 
parameters in each loop and performing the necessary operations at 
specififed time intervals. The cycle time was measured in seconds and 
must be a power of two with zero as the minimum power. The second, the 
process operator's console (POC), provided the process operator with the 
facility to read or change information in the PVRT. Using the hardware 
of the POC and its associated software, the process operator can read any 
word in any loop and can change the value of S11 butla few. ThesPec 
hardware consisted of an input/output (I/0) typewriter and a series of 
push-buttons. The values of words requested were typed on the typewriter 
by the DACS and the values of the words changed were entered by the 
typewriter. The third, Mainline Subroutine Service Set (MSSS), provided 
a set of Fortran called subroutines, which may ee used to read or change 
information in the PVRT through Fortran programs resident in the DACS 


computer. The author used these subroutines extensively in the programs 




























Le 


- : y 7 
3 48( 27° 7.905 a 7 Ad : ew m5 re | + = a Th 13 ‘ae ae te yee th gan 
4 : i. 
; “ ‘ercug baxiee® SAS Hard > 


ay . pra : a ‘ 
¥) Bootes otY .2a9g963¢ 


5 all J vetiv~s. few 


=) 


. tw Hote, ‘* J omnweg 


Ue . nad 7b 4 


a rit whi isaqe 


*: be * e ge 


suapam 943 qo 
+ sf : . ’ 
P ey if .¥ | fas peal 


el y! ve 1. ginid HO8S 


4 ,; Gh g thud toe 
i ; ina a5 law 


a Gmi10 tae 


ey 
’ 
- 


7 1D 39S THY 
4 Pins itiasga uy 
yey. & ad 2a 

ia P= 920 £25908 


1 ¥3li loa? 











arid es] 


atid van ak hagy 


te ty 1 ivy b> i< vig’ liracy} re oe besa )snoo 33 
: 2 - 4 4 oa .7 = 


By the “Fed d L1AwS lor 2-4 vOMeh ELE Soe JOU 


















: a ; 
est 2 ve ONS nee Te pee Tih ty ae pee Piste Lo be ant 


© 22> 2 * - 


honing vie Su fiamit9 ore sity ko ae ats Bai 
_ it ; ee " 8 2 ree 
tes Pz ; 


A. ange we. ober 
ie «Mh dette lp 






i= 










: = , ial Gnas 


ae 
which calculated the on-line heat balance and implemented a pulse test. 


5.3.2.3  DACS Heat Exchanger Interface 
Figure 5, which uses the same symbolism for heat 
exchanger hardware as Figure 3, illustrates how the DACS was interfaced 
with the heat exchanger system. The small rectangular blocks in Figure 
are used to represent each DACS function and the dotted lines to 
represent connecting electrical wires between the heat exchanger system 
and the DACS. The arrows on the dotted lines indicate the direction of 
information flow. The symbol designations inside the small rectangular 
blocks signify the DACS functions as follows: 
a. bpc - Direct Digital Control 
Utilizes the features of the Standad DDC package 
b. DAS - Data Acquisition Slow _ 
Utilizes the features of the standard DDC package which permits 
sampling at a maximum rate of one point per second. (Data read 


in this way can be saved in ring buffers.) 


c. DAR - Data Acquisition Rapid ’ 
Utilizes the special software feature developed by the DACS 
Centre staff. (Permitted sempling at a rate of forty points 
per second. ) 
The subscripts, i, o, h and c, beside some of the hardware eynibele in 
Figure 5 refer to in, out; hot and cold respectivelyy In the following 


material, the system organization and its operation is discussed by 


reference to Figure 5. 
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The tube flow, the shell flow and the shell 
inlet temperature on the test heat exchanger were the only variables 
controlled by the DACS. The tube inlet temperature, which was that of 
the domestic water supply, remained constant during any series of tests. 
The controlled variables employed the features of the DDC package and 
control loops were formed using the integral plus proportional algorithm 
on a one second scan cycle. This control was satisfactory so no 
particular effort was devoted to trying the cther control algorithms 
available. Aliso, since the load on the DACS produced by the three loops 
was negligible, no particular effort was devoted to the selection of an 
optimum scan cycle, 

The flow measurements were obtained from turbine 
meters FTl and FT 2 and the control action was implemented through the 
respective control valves FCl and FC2. 

One of two possible thermocouples was used in 
the control of the shell inlet temperature. The selection was made by 
using the POC. The location of these thermocouples was: 

a. The outlet of the commercial shell and tube heat exchanger, SHX. 
b. The actual inlet to the shell of the test heat exchanger THX. 
In the latter case a transport delay of approximately 15 feet of pipe 
existed but it offered the advantage of directly controlling the, inlet 
temperature to the shell of THX at a specified value. Experience 
revealed that the detuning necessary to control from this measurement 
point was not a serious problem for operation near steady state. As 
a result, start-up was based on control from the first point with steady 


state operation using the second. No flow forcing was used in the 
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shell, so large load changes were unlikely after steady state was 
attained on the shell inlet temperature. The option for controlling 
the shell stream temperature from the outlet of heat exchanger SHX is 
shown as a dashed line in Figure 5. 

The slow data acquisition, indicated by DAS in 
the rectangles on Figure 5, made use of the data acquisition feature 
of Ene DOO package as explained in Section 5.3.2.2. The data acquisition 
loops formed operated on a one second scan cycle, again because the load 
on the DACS at the time was light and there was no need to select a more 
optimal value. Generally the data acquisition loops, which were used, 
served two purposes, First, the loops provided a ready means for the 
operator to obtain up-to-date values of process variables by using the 
POC features. This was found to be particularly useful during the 
check out of the components on the heat exchange system. Second, the 
loops provided up-to-daté values for on line programs running in the 
computer. In particular, the slow data acquisition loops reading the in- 
let and outlet temperatures of the Ee on the test heat exchanger 
were referenced extensively by the on-line ‘heat balance program through 
the facilities of the MSSS. 

Ring buffer loops were used for plotting the 
measurements of the loops under control when the control constants 
and digital filter’ constants were being selected. Also, they were 
used for graphical study in the development of the pulsing program. 
Four ring buffers stored the response of the measurement, setpoint, 


error and output of the tube flow when a pulse was introduced. 
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The rapid data acquisition indicated by DAR 
in the rectangular blocks on Figure 5 was eeneaved through a special 
Fortran accessible subroutine written by the DACS Centre staff. The 
subroutine, as used, was restricted to a rate of forty samples per 
second on two variables for a time duration of forty seconds. However, 
‘the DACS Centre staff are developing a more generalized version of 
this subroutine. Basically, the subroutine addressed two multiplexer 
points alternately, read the binary equivalent of the voltage values 
present and stored these binary values in a file on one of the disk 
storage units. When the rapid data acquisition was completed, the 
data was sorted, so that the values from each of the multiplexer 
points was placed in a separate disk file in chronological order. This 
was achieved through the use of a sorting subroutine also written by 
the DACS Centre staff. The program, STDAT, listed in Appendix III, was 
the mainline which used this subroutine. The values in the files after 
sorting were simply binary coded integer numbers which had little 
physical significance until converted into engineering units. The 
procedure used for this conversion is covered in. S€crionep. 74.2 .08 

For the results reported in this work, the tube 
flow was the forcing function or the input pulse and the shell outlet 
temperature was the response or output pulse, therefore, the flow 
turbine FTl and the thermopile TPl were the transducers which supplied 
the signals recorded by the rapid data acquisition subroutine. it 
was possible for the DDC and rapid data acquisition of the tube flow 


to take place simultaneously using the same transducer and multiplexer 
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point. As shown by Figure 5, the heat exchanger - DACS interface was 
such that shell flow and the tube outlet temperature could have been 
monitored through the use of the rapid data acquisition subroutine, 

although time limitations did not allow this case to be considered in 


this work. 


5.4 Experimental Procedure 

As mentioned in Section 5.3.1, the DACS was programmed to allow 
pulse test experiments to be run entirely from within the Digital 
Control Laboratory. The experimental procedure used can be divided 
into two parts; that which took place in real time and that which did 
not, or that which involved the acquisition of experimental data and 
that which involved the analysis of same. The experimental procedure 
has been divided into these two parts for discussions in the following 


two sections. 


re Ge 1 Experimental Procedure for Data Acquisition 


The experimental procedure used for data acquisition 
relied heavily on features available on the DACS. To simplify the 
text in this section, it will be assumed that the reader is familiar 
with the information in Section 5.3. Programs which are referred to 
by a name in upper case letters are listed in Appendix III. References 
to the computer ih this section imply the digital computing facilities 
of the DACS and references to writing out or entering information 


imply the use of the POC typewriter unless otherwise specified. 
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5.4.1.1 Heat Balance Calculation 

The first program executed during an experimental 
run was the on-line heat balance Fortran program named WLHBL. Basically, 
this program utilized the MSSS features, elong with slow data acquisition 
loops, to obtain current values for the flows and temperatures on the 
streams of the test heat exchanger. From this information the heat 
transport ratio was calculated and written out along with averages of 
the values measured from the process. To execute WLHBL, it was necessary 
to bring the program from disk storage into the computer core. This 
was accomplished by pressing the appropriate button on the POC and 
entering the number 9. When WLHBL was present in core, two time 
parameters had to be entered before execution would commence. The first 
parameter called ISAMPLE PERIOD set the time (seconds) which would 
elapse between each set of readings that were obtained from the PVRT 
through the MSSS. The minimum value set for ISAMPLE PERIOD was one 
because this was equivalent to the rate at which the DDC package 
updated the required measurements in the PVRT. The values obtained 
each ISAMPLE PERIOD were saved in buffers until the heat balance 
calculations were made. The second parameter, ITOTAL TIME, set the 
time (seconds) which would elapse between heat balance calculations. 
Every ITOTAL TIME seconds the program would average the buffered 
values, calculate the heat balance using the averages and write out 
the results. For this program to function properly, ISAMPLE PERIOD 
had to be less than, or equal to, ITOTAL TIME. 

Once the heat balance program had commenced 


execution, it would periodically report the heat balance results until 


=" é 2 
- rs 
ga 
“s t 
‘Nbe . ‘hier 
- - we 
- “We erat 
+ 
24 
‘ * o 


fo Li1ieexs 





72 = 


the operator would abort it by turning on data switches 7 or 8. If 

7 was on, the run would terminate with the heat balance. If 8 was 

on, the pulsing program was brought from disk storage into the computer 
core for execution. In this way it was possible for the operator to 
use the heat balance as a guide in determining the necessary steady 
state before conducting a pulse test. Generally, a sample period of 
three seconds and a total time of sixty seconds was used and at least 
three satisfactory heat balances were obtained before the pulse test 


was conducted. 


Seteiee Introduction of Flow Pulse 

The program PULSE, which was written in Fortran, 
controlled each pulse test. Generally speaking, PULSE started the 
rapid data acquisition and after a brief period at steady state, 
utilized the features of the MSSS to introduce an input pulse by 
manipulating the control valve on the tube flow of the test heat 
exchanger. Two methods for manipulating the control valve were 
provided. The first pulsed the flow by changing the setpoint in the 
associated DDC loop; the second placed the loop in the manual mode 
immediately before the pulse and then manipulated the valve by changing 
the cutput of the loop. The loop was then returned to the automatic 
mode following closure of the pulse. Preliminary investigation revealed 
the second method to be more satisfactory than the first, so it was used 
for all tests reported in this thesis. 


The listing for PULSE gives a reasonably 


comprehensive description of the parameters, which had to be entered 
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before the program executed. ISASS and ISPUL need no comment; however, 
CHGTYP, CHGLI and CHGL2 require further exptanat for, CHGL1 can be 
considered as the change limit ‘athe the beginning of the pulse. The 
relative absolute magnitude of CHGTYP and CHGL1 determined whether 
the beginning of the pulse was a ramp or a step. If CHGTYP was less 
than CHGL1, the begining was a step, but if CHGTYP was greater than 
CHGL1, the begining was a ramp with a slope of CHGLI units per second. 
For the end of the pulse the same idea applied with CHGL2 taking the 
place of CHGLI. If the output was being decreased, the signs of CHGTYP, 
CHGL1 and CHGL2 had to be negative; if it was being increased, they had 
to be positive. With this technique it was possible to generate four 
basic pulse shapes; rectangle, triangle, ramp and reversed ramp. Only 
the rectangle and the ramp were used for the results reported herein. 
The parameter PLVAL permitted the specification of the maximum deviation 
that the pulse could have from steady state, so the system tested could 
be protected from saturation. This meant a ramp pulse could be truncated 
if the amplitude exceeded PLVAL before the pulse duration had elapsed. 
The parameter MANUL requires no further explanation. 
When the above parameters had been entered, 
the program controlled the pulse test by completing the following steps 
in sequence: 
a. When data switch 11 was on, four ring buffer loops were made 
operable. (From these buffers Hy time history of the measure- 
ment setpoint, error and output could be plotted for the loop 


pulsed. These plots were particularly useful for selecting 
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values for the parameters which determined the pulse shape. 
Data switch 10 could be used to by-pass the rapid data 
acquisition program during such studies.) 

The voltage generated by the reference thermocouple (located in 
the thermopile reference bath) was read once a second for five 
seconds along with two variables in the DACS which are used for 
calculating cold junction compensation. The values obtained 
were averaged, the cold junction compensation voltage was then 
added to that generated by the thermocouple and the result 
written out. 

The rapid data acquisition program was initialized so that it 
idled ready to start reading data immediately after specified 
indicator was set to a non zero value. 

The time of day was recorded from the system clock and the time 
when the pulse was to begin was calculated. 

The MSSS was used to obtain the current value of the output 

for the loop to be pulsed. This value and the value of the 
output to occur at the peak of the pulse were written out. 

(As discussed earlier, the setpoint could have been used, ) 

The data acquisition indicator was set to a non zero value and 
the data acquisition was started immediately. 

When the time to introduce the pulse was reached, the loop to 
be pulsed was placed in the manual mode. .The time when the 
pulse was to be deleted was calculated and the output to the 


valve was changed as required to generate the pulse shape 
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specified by the parameters entered. Each new value of the 


output was placed in the PVRT through the facilities of the 


h. When the time to delete the pulse was reached, the output was 
returned to the original value and after three seconds the loop 
was placed back in the automatic mode. 

i. If data switch 13 was turned on before the run was completed 
then the program would short at this stage in the sequence of 
steps. 

j. When rapid data acquisition was completed (forty seconds after 
start), the second step in the sequence was repeated and the 
values obtained at the beginning and the end of the run were 
averaged and the result was written out. 

k. The program STDAT which sorts the acquired data was automatically 
brought from disk storage into core for execution. Parameters 
were entered to specify the numbers of the multiplexers from 
which the data was read and the numbers of the disk files in 
which the sorted data was to be storéd. When STDAT had 
completed execution, the experimental procedure for data 
acquisition was complete. 

The experimental pulse tests used to determine the transfer function 
relating tube flow to shell outlet temperature were restricted as 
follows: 

a. The steady state tube and shell flows were eight and fifteen 
U.S. gallons per minute, respectively, and the shell inlet 


temperature was controlled to 150°F. 
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b. Five seconds of data was taken at steady before the pulse and 
flow pulses were generated by manipulating the output signal 
to the tube flow control valve. 

c. Two basic pulse shapes were used, the rectangle and the ramp. 
In both cases the maximum change in the output was chosen so 
the tube flow pulse would have a peak of approximately twelve 
U.S. gallons per minute. 

d. Pulse durations of 1, 3, 6, 10, and 15 seconds were used for the 
Square pulse while 6, 10, 15 and 20 seconds were used for the 


ramip e 


5.4.2 Experimental Procedure for Data Analysis 

The data analysis was accomplished using a series of Fortran 
programs written to utilize the data processing capabilities of the DACS. 
The listings for these programs can be found in Appendix III. References 
to the computer in this section imply the digital computing facilities 
of the DACS and references to writing out or entering information imply 
the use of the POC typewriter unless otherwise specified. 

The data analysis programs were stored on the disk storage 
units and all data they processed were stored in disk files. To 
simplify the explanation of the use of the data analysis programs, it 
is necessary for the reader to understand the basic structure of the 
disk files. A total of eight files were accessible to any of the 
programs which processed data. Each file was 5,120 words long which 
provided enough room to store 5,120 integer values or 2,560 real 


values. By the design of the DACS, each file had to be divided into 
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equal sized records which were used in the disk read - write operations. 
Basically, the read - write statements specified the file number and 
the number of the record accessed in that file. A full record of data 
had to be transferred by each read ~ write operation. For the programs 
in Appendix III, a record size of eighty words was used. 

Because both the programs and the data were stored on 
disk, it was possible to control a complete data analysis by entering 
instructions through the POC typewriter. To begin the data analysis, 
the initialization program, SET, had to be Soha through a single 
card read operation. The function of SET was to initialize an indicator 
for the executive program CHIEF and to write out a list of the data 
analysis programs along with an associated number. CHIEF, which was 
automatically executed immediately after SET, provided a ready means for 
the operator to select the order in which the data analysis programs 
would be executed. This was done by entering the associated numbers in 
the desired sequence. When the last program specified in the sequence 
had completed execution, a completely new sequence could be entered. 

The programming was done so that there were absolutely no restrictions 
on the sequence of execution of the programs; however, the purpose of 
the analysis introduced certain logical restrictions. The flow chart 

in Figure 6 illustrates the most common sequence used by the author. 

The decisions indicated were those made by the operator when determining 
the desired sequence. 

The parameters which had to be entered by the operator 


before each program would execute are described in the appropriate 
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listing in Appendix III, and they are not mentioned in the following 
text unless further explanation is required. 

The listings of the subroutines used by each program are 
included in Appendix II] immediately following the listing of that 
program. Listings of DACS centre subroutines used are not provided, 
since they apply specifically to the DACS used in this work and, 
therefore, are not of general interest. In the following text, each 
data analysis program is described briefly in the order they would be 


used to complete the sequence shown in Figure 6. 


J-t.2.1 Conversion to Engineering Units 

When the pulse data for the tube flow and shell 
outlet temperature had been sorted and stored on disk, each value was 
in the form of an integer number which had little significance. 
(Section 5.3.2.3). These values were derived by the ADC from the voltage 
signal on each pair of terminals to which flow and temperature signals 
were supplied. The voltage signal was linearly converted in terms of 
the range on the terminal pair relative to the binary range of -32768 
Por az/G7, 1.e,. on a -5 to + 5 volt range, a +3 volt signal would sbe 
stored as () (32767) = 19660. The first step in any data analysis 
was to convert the integer data into engineering units. Two programs 
were used to accomplish this objective, one for flow data named VIFLO, 
and one for temperature data named MVTMP. Generally speaking, both 
programs converted the binary numbers back to yolte and then converted 
the volts to engineering units. 


The program VIFLO used a linear conversion from 


binary to volts, a least squares polynomial for conversion from volts 
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to frequency in Hz (Section 5.2.2) and a linear conversion from 
frequency to U.S. gallons per minute. 

The program MVIMP was more complicated in that 
the thermopile millivoltage had to be divided by the number of probes 
and added to the reference thermocouple voltage before it could be 
converted to temperature, This situation was even further complicated 
by the failure of the original thermopile. (See Section 5.2.2 and the 
general comments in the program listing for MVTMP.) The steps which 
were involved in converting the Lanier tuee were as follows: 

a. The reference thermocouple voltage supplied during the execution 
of PULSE (Section 5.4.1.2) was converted to the equivalent 
temperature (T) in degrees Fahrenheit through the use of a least 
squares polynomial fit to the chromel constantan thermocouple 
table. 

b. The voltage (y) which would be generated by a copper - constantan 
thermocouple measuring temperature T was calculated using a least 
Squares polynomial fit to the copper - constantan thermocouple 
tables. : 

(Note: The above two steps are necessary because of the failure of the 
original thermopile and the use of a copper - constantan substitute - 
SHCLLOUE). 2.2) 

c. In a Fortran DO loop, each binary number is converted to volts, 
divided by the number of thermopile probes and added to Y to 
obtain the copper - constantan voltage (X) at the thermopile 


hot junctions. Then X is converted to degrees Fahrenheit 





Sten 


through a least squares polynomial fit to the copper - 

constantan thermocouple tables. (Note: For further information 

on the least squares polynomial fit, see Section 5.4.2.7.) 
When programs VIFLO and MVIMP had completed execution, it was general 
practice to dump the flow and temperature data from the disk files onto 
cards. This was accomplished using a standard DACS function which 
faaped data from files onto cards in binary form. The practice was 
used to ensure that the results from any experimental run would be 
preserved because it was possible for the operator to inadvertently 
enter parameters which would cause a program to write over the experi- 
mental data. If this occurred, the data could be restored from the 
cards using a standard DACS storing function. Also, this practice 
ensured that analysis of any run could be repeated if questions arose 
at a later date. A total file of 5,120 words could be stored on a deck 


of cards approximately one inch thick. 


ae Sar Time Domain Smoothing 

Neither analog nor digital smoothing was applied 
to the pulse test data obtained, so if time smoothing was required, it 
had to be applied during the data analysis. The program SMOTH was 
written to provide a series of smoothing algorithms which could be 
applied to the data, if required. This program also contained algorithms 
for frequency domain smoothing; however, only the time smoothing is 
considered in this section. 


In general, the method of smoothing was by 


convolution using symmetric weighting functions (69) so an equal number 
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of points were considered on each side of the point being smoothed. 

Two methods of time smoothing were available, exponential and least 
squares. The first, which was developed by the author, applies expon- 
entially decreasing weighting functions to raw data points as they 
occur further and further away from the point being smoothed. A 
parameter (B), which must be less than 1,0, determined the degree of 
smoothing to be applied. For example, if B was 0.8, the raw value 
being smoothed (R) would contribute 0.8 of its value towards see smoothed 
value (S), the raw values on each side of R would contribute 0.64, 

the raw values two away from R would contribute 0.4096 and so on until 
the total number of points involved in the smoothing calculation have 
been utilized. The smoothed value S was then normalized by dividing 
by the sum of the weighting functions. Three, five or seven points 
could be used for exponential smoothing depend ite upon the value entered 
for the parameter NS. The second method used smoothing by a least 
squares procedure developed by Savitzky and Golay (69). Basically, the 
mechad involves applying a series of weighting functions to the raw 
data in the fashion illustrated in the example above. The difierence 
is that the weighting functions are derived to provide the exact 
equivalent to a least squares polynomial fit to the data points 
considered, The fit then determines the smoothed value of the central 
data point. In the program SMOTH options were available to provide 
smoothing of five, seven, nine or eleven raw points using second and 
third degree polynomials and seven, nine, eleven or thirteen raw points 


using fourth and fifth degree polynomials. 
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N J 
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Preliminary examination of the experimental 
data revealed that the noise was of a sufficiently low magnitude so as 
to make the effects of time domain smoothing negligible in the final 
frequency response diagrams derived. For this reason only the case of 
a third order polynomial fit using eleven points was used. 

The spectral smoothing or frequency domain 


smoothing using SMOTH is covered in Section 5.4.2.4. 


5.4.2.3 Fourier Transform 

Two programs KLTLY and FREQ were written to 
calculate the Fourier transform. In both cases the procedure involved 
calling a subroutine to calculate the actual prance oun First forethe 
output and then for the input pulse. 

Program KLTLY used the Fast Fourier Transform 
(FFT) technique which was expressly developed to provide a fast, effic- 
ient means of digitally evaluating the Fourier transform from discrete 
time data. Three subroutines were used by KLTLY, namely INITL, TNFRM 
and REVER. The function of INITL was to initialize the pulse data for 
the FFT by averaging IRASS records of data at the beginning of the pulse 
test data and subtracting this value from the remaining points to obtain 
a pulse curve departing from a zero baseline. INITL also wrote out 
the error of closure for every third point of the last forty valen 
used in the transform calculations and calculated the area under the 
input pulse when the input transform was Sic coe ee The subroutines 
TNFRM and REVER conducted the actual calculation of the FFT. The card 


decks for TNFRM and REVER were supplied to the author by J. H. Smith, 
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of Trinity University Computer Centre, Trinity University, San Antonio, 
Texas. The subroutines were written for a DACS similar to the one used 
for this work, so no Aes was necessary on implementation. An 
explanation of the use of these subroutines precedes the listing of 
TNFRM. Because the FFT operated satisfactorily, no detailed study was 
made into its derivation; however, some general information is given in 
Sections. 24.4. 

The program FREQ provided the facility to 
calculate the Fourier Transform by either the trapezoidal or Filon's 
(27) quadrature using subroutines ABCD] or ABCD2, respectively. A total 
of six subroutines were used by FREQ; they were REDPT, ABCD1, ABCD2, 
SUMS, ARPHF and ANGLE. In the following text, the function of the first 
four subroutines is discussed in the order in which they are listed above. 
The last two will be discussed in Section 5.4.2.5. 

Subroutine REDPT performed the peice of 
reducing the number of time data badnes used in the Fourier Transform 
calculation. Basically, the subroutine scanned the original data 
selecting a point every NPICK points and placed the selected values in 
a new disk file. The effect of REDPT on the data is discussed in 
Section 6.3.2.1. For most analyses conducted using the program FREQ, 
subroutine REDPT was employed because computation times were excessive 
(in the order of twenty minutes) for eens more than about forty 
frequency points from 360 time points. In general, the computing time 
is directly proportional to the product of the number of frequency and 


the number of time points involved. 
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The subroutine ABCD1 used the trapezoidal 


method of quadrature to evaluate the A, B, C and D trigonometric 


integrals required to calculate Fourier transform as shown in 


Section 3.2.3. The following steps were completed in sequence during 


the execution of ABCDI: 


a. 


The number of frequency points to be calculated was determined 
from the parameters FINT, FINC and FLST. The number was 
selected such that the frequency points begin at FINT and 
increment by FINC up to a value greater than or equal to, FLST 
depending upon the maximum frequency required to calculate an 
integral number of full records, i.e., the number of frequency 
points was always a multiple of forty. Full records were 
calculated because the disk read - write operation always 
transferred full records of data and was deemed useful to not 
have part of a record filled with meaningless values, since 
this could complicate the writing of other programs. 

The steady state value of the process before the pulse occurred 
was evaluated by averaging IRASS records of steady state data. 
IRASS was a parameter entered by the operator. 

The transcendental integrals were evaluated for each frequency 
point required using the trapezoidal quadrature. In the 
calculation procedure the steady state value was subtracted 
from each time data point to yield a closed pulse which 
deviated from a zero baseline. (Note: in a properly executed 


pulse test, the values of the end points are zero, so, EOL 
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convenience in programming, the trapezoidal quadrature used 
in ABCD1 neglected these points.) 
d. The error of closure was written out for every third time 
point of the last forty involved in the transform 
calculations. An error of closure existed if the response 
variable did not Sens to the original steady state. 
The subroutine ABCD2 used Filon's quadrature 
(27) to evaluate the A, B, C and D trigonometric hey ete associated 
with the Fourier Transform. The sequence of steps completed during 
the execution of ABCD2 was identical to those in ABCD1 except for the 
quadrature formula used. 
The subroutine SUMS used Simpson's rule to 


calculate the area under the input pulse. 


5.4.2.4. Spectral Smoothing 


As mentioned in Section 5.4.2.2, the program 

SMOTH contained algorithms suitable for frequency domain or spectral 
smoothing as well as the algorithms for time domain smoothing. The 
algorithms used for spectral smoothing were obtained from Blackman and 
Tukey (5) and Blackman (4). Three choices were available for soecrral 
smoothing: 

a. the Hanning method 

b. the Hamming method 

c. the combination method which involved first smoothing by Hanning 

then smoothing those results with a third algorithm. This method 


is identified as 'HANNING SECOND PASS' in the listing of SMOTH. 
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Further details concerning spectrd smoothing were outlined in 


Sectiionss: 4. 


5.4.2.5. Calculation of Amplitude Ratio Phase Lag 
and Frequency Content 





When the Fourier Transform had been evaluated, 
it was necessary to combine the results to obtain the amplitude ratio 
and phase lag for the process and the frequency content of the input 
pulse. In the case of program FREQ, the subroutine ARPHF performed 
the necessary calculations from the results of subroutines ABCD1 or 
ABCD2. In the case of program KLTY, the program BFKTY eee used. 

The procedure for calling ARPHEF dependent upon 
the use of spectral smoothing. If spectral smoothing was not used 
then program FREQ called subroutine ARPHF directly, however, if spectral 
smoothing was applied then program BUCWS was executed. The function of 
BUCWS was simply to provide a mainline program which the operator could 
use to execute subroutine ARPHF separately. The calculations involved 
in ARPHF were the simple arithmetic operations given by equations (3.15) 
through (3.21), except for the arctangent function (Equation 3.16) which 
required the subroutine ANGLE that was called by the subroutine ARPHF. 

The form of ANGLE used in this work was not 
totally satisfactory because it was prone to introduce discontinuities 
in the phase lag graphs when there was a significant amount of noise 
in the Fourier Transform values. To evaluate the arctangent ANGLE used, 
the FORTRAN function Se ae ATAN which always calculated an angle 
lying between t 90 degrees. Since the phase lag for most systems goes 


beyond -90 degrees, it was necessary to provide a memory function and 
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an adjustment of + nx 180 degrees (n ineeee cur) eem that an 


accumulative angle could be computed from successive values of the 


: 
real and imaginary components of the transfer function. The technique 
worked satisfactorily so long as the difference between the values of 
successive components did not indicate angle change in the order of 


90 to 180 degrees, because if this occurred, the memory function would 


lose track of its positio 


“~ 


n making the information obtained from ANGLE 
meaningless. 

The occurrence of a breakdown in ANGLE was 
easily detected from the graphs since sharp discontinuities of 180 
degrees or more appeared. These discontinuities commonly occurred at 
the zeros of the frequency content curve, or whenever an error of closure 
in the pulse introduced sufficient noise in the values of the Fourier 
transform. 

Phase lag graphs presented in this work do not 
include points beyond the frequency at which there was an obvious 
renidewn in subroutine ANGLE. However, the existence of a breakdown 
can be determined by comparing the number ot points plotted in corres- 
ponding amplitude ratio and phase lag graphs. When the number on the 
phase lag graph is less, a breakdown occurred. approximately at the 
frequency where the curve on the phase lag graph terminates. 

The operation of program BFKTY was identical to 
that of subroutine ARPHF except that the parameters entered and the 
variable names were made compatible with those in program KLTLY. The 


subroutine ANGLE was used by BFKTY in the same way it was used by ARPHF. 




















ms teal? GR BhLeL =e él 5) Ci weep Ieee GAT oe 
gh 34 Bay bad? 4) ossosed tie Remiss sd biges algae ‘inthe 
piatest ttnwrsta tact +<Virds gos Hee) Se Hieogtes 2 aaeedan ae 
Js ne fay gad nee ed 48 3 ah fash greta Lo iaethatsn Sasson | 
Ad vehse Ga ‘at ejauds Sige -SPeSPone -$3e “eee astusieqesd abaa cn) 
ius oO ho shod Viet ache.) Seer ta Veet FT 5 Lon sed Seba Heeb" iain. 2) 


i at lywtiedig wed rabies | add ph BER Ree ESE te watt eee 


me Of 354 : As —t . i’ ms Pak tr are io seen 


* Té Jw ~f 7 7 
4 é 7 . . a 
~isile secte wiesag 649 wes) be¥neseh VISE 
& [- = 4 a 
wits 04) . id t te % sy a eit a irs Ic eso igeb of 
3 a Cees ig ; a! gras) 2 oN ot el eee Gee ee Mees Ci 


: eat hie sVaets IJnosfim) Yoh pe cies ot Ao at ada 
Ga, ‘ : ont 3 ef. n 7 - x fe hip 7 a ee # rei ae aa : 
t® mia ky Te *o0 794 a! ive cpr deh mt t gain “aii wi 
Sg ot 2 Y AGG agate SOLE Rae ee * eee 7 5 Sepeee 


Rahbeberhinrss: 


ars ! . 2 P , Were, «iS Mae (GN Free FES eA hae wae D 
4 , i ‘ Tit i Aa 7% way a ¢ : 
ne Aiki) eee ea es iT PM 
3 oii i aL yee) S15 wie nae _iqneg obit ont 
’ ia: par S. Fy gee ike eae B) 6 cw - qm) ra 
mt | SARMA wok samme etl qwsbaaetd | ; 
Me a : ~~ fie De wet > F * 4 + ae iol . 7 * ‘ py ee 


og im adored? gre req st bsatstot9b aed 4 


ed “ae fess 


od “ y 48 ae gt 7 ify 7 os F . } a ay : ees lh hei 635 se shun tte ets 


ine J * 
+s 


o 
cf 
* 
+ 
. 
fad 
2 
tet 


- ‘ a ae Pi 
a a aw) . a oe “25 ve a) , f wt << ae ern a 


at 
ee Sarr C692 cs 16 ah nag a65 no ov sits sieiw" 


oS De uledamixowngs bainu6ss alvohdbo wif sagas ut ayeug ant seodg. * 







2 @ 


; ‘i te 8 et eee es + Se Get ee Sn 
r oF Fesi20901 ate nie vials adi 4 hess ad 
soe oh 6, Boe 
ids bine Mnsiaittis Sissanusen. oil3 saa yao phe 





: y 
bn Oe 








5.4.2.6 Plotting Frequency Response Diagram 
All the graphs presented in this work were 
obtained from the DACS Centre Calcamp Plotter using the generalized 
plotting subroutine NWPLT which was written by fellow graduate student, 
Rew be Newell. - The pine PWRSL was written by the author to utilize 
subroutine NWPLT which in turn used subroutines NWLNS, NWMAX, NWLGS, LGRID 
and NWANN. A listing of each of these subroutines can be found in 


Appendix III, follewing the listing of program PWRSL. 


De tee ork Computer Programs 

Two other programs which were executable from 
the keyboard were PICK and WRITE. The first was simply a mainline 
program to allow the operator to have direct access to subroutine REDPT 
(Section 5.4.2.3). The second was a utility program to allow the 
operator to manipulate data in the disk files. It had the facility to 
read integer or realjdata from a file and write into another file, 
punch if onto cards in E FORMAT’ or write it on the’ line*printer in®kr 
FORMAT. The operator could specify the number of records that would 
be read from the file. 

The program LINEA, which was used to calculate 
a least squares polynomial fit to tabular data (Sections 5.2.2 and 
5.4.2.1), was written by fellow graduate student, V. Krishna. LINEA 
was programmed to run at the University of Alberta Computer Centre, 


so it was not run at the -DACS Centre. 
























‘ . paren 
ro eee i ae = iN 


: ate ae : 
/. x2 : z ‘ prep 
Sy ra a a CA fh ee WO am Re "e afte 


Geis ir 4 7 wae *Steaeege Babes FS a. 0 ae" 1% it J 

TOW J4tw Ay’'as veg eqn, ae DER ayes mst a tan 

> pagan ole aa -ightbs vse bite tae ee ee "bonkesdo 
ie Saws A tet pol ee aa ee 
eh Psty od? eit! ee LE ae s4 xe hw he tise” eiepes q wiht = Treat at 
mosh ;Banen’ sPistie, ~errsebas 4 ait onde SARS a dal SRE wee 
- 

aes eee kk ee - 2a i oe Ps adac* oie inet ‘ > Henin Saen 


os ee 3 on ry eee: oé 
5 ; y * ‘ 4. gt wt igh 7 te gs et rac 4 bd a7 Sit ead » ey tt Hibhegya 
aoe s : sede wpe hy id re ocd wiehii << % SF ofa sg ig — is Pi ‘= 
; , 
iz 3) ra a 8.6 .€. 2 ul 
ee nS eee 


Y = r ee ry 
' - 4 J a. — —. aes Sk “ ~_ to. 
(ie asa Foyseo ek wae He yey 7 EP Gn? He hoe’ FITS ssag hxypodved ait 
. < - = - . ~~ 
ij . : it eta of etemge of. Coli ae ob 1ghdq 
Ad sve! et ie ON eS wack spi? (© ©. 5.2 Hat soees 
,, “oS . | vid ciel sjalocie@ni O38 tot ateqeo 
i hited kue 5264's Suott afb “Test 9 S8n0en) Gene 
2 oe Spee sot sy “a> ci 4k See ed oad ay ae 
_ re 414 tt Het py 4 4 Oi “@ fi ebissotné D2 Aonug 
*ivdte Bivoa tojaisqa Sat ~ TAM 
” 2 . te stg Ps ) 
em -oftt 242 wot? beet ode 
| ert 83g Denes SW fs tche: WAGE Foes 


Tug oe 


Bes TRL sre 1944) “kash ‘volndes"Gd tee fatmeitiot dafhape ranot @ 
Bea) | IN. CV .tasorisc saealen cS wel iad xa oe ti 4) =e nc ioe 
eisned ra PO Fie) YixredhK to yates avid war RS: ‘tats oo | 
Lone ee Be 5 BITRE 2) Sec ce gt ‘etna? “Alar eds ‘ ae 


7 ae Yn , 
fod % : ’ P aoe : 
“ee a*) os re mr > et . “eos Sein ee ‘ hha use aes = oft 12 ; 


" os 


aye rere taba "geet ies 


time 5 7 Fy... 
1. hk 
ee 2 






Vi DISCUSSION OF RESULTS AND CONCLUSIONS 


6.1 Introduction 

The results of both the theoretical and experimental analyses are 
presented in this chapter. All information appears in graphic form 
because the use of program NWPLT made it possible to obtain labelled 
Sraphs directly from data files. The labelling code which was used on 
the axes of each graph is explained in the following text. The 
independent variable for the data prepentad On e2en kraph is time or 


frequency. The units of these variables are seconds and radians per 


second, respectively. 


The label on the independent variable axis (abscissa) of the graphs 

is of the following general format: 

MIN VALUE AXIS UNITS MAX VALUE 

Pmnxxy_ijkl_abc_efgh 

The first4ylinejof information consists of: 

a. The minimum and maximum values which coincide with "tick" marks 
at the end points of the axis. 
b. One of two ics of AXIS UNITS: 

1. LOG CYCLES where the scale is logrithmic and the ordinate 
axis intersects the abscissa axis at the one cycle per 
second point. 

2. (O.XXXE_XX_INTERVALS) where the scale is linear, X is a 
numerical digit and E implies exponentiation to the base 
10. The value presented is equivalent to the difference 


between the "tick" marks along the axis. 
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The second line provides information on the graph identification, 
the source of the data, the type of system tested and the variable name 
as explained below: 

a. Pmnxxy is the graph identification where the characters have the 
following significance: 
P - Appears on’ all’ graphs. 
mn - An alpha code associated with the type of data; the 
following cases occur: 
TH - THeoretical time data 
EX - EXperimental time data 


™ 


Fast Fourier transform 


ct 
2 
(D 


PEP “Lrequency ‘data derived using 
TP - frequency data derived using the TraPezoidal quadrature 
FN - frequency data derived using the FiloN quadrature 

xx - A numerical code associated with a particular run. A run 
is defined as any set of input and output time pulses which 
was obtained from a pulse test. Many different graphs of 
frequency data are derived from one run. Run numbers range 

’ 

from 01 to 08 inclusive for theoretical data and 10 to 20 
inclusive for experimental data. Run 15 has not been 
included in the results. 

y - An alpha character which may be any character in the 
alphabet. 

Note: The xxy code has the Koation wits significance when comparisons are 


made within experimental or theoretical results. 
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- When "xx" is the same but "y'' is different for two graphs, 


the graphs are different but have been derived from the 
same run. 


- When "xx"! 


is different but "y'" is the same for two graphs, 
the graphs are similar but have been derived from data 
obtained on different runs. 
ijkl is an abbreviation for the source of the data. The following 
cases occur: 
- time data 
THRY - theoretical 
EXPR - experimental 
- frequency data 
FAST - derived using the Fast Fourier transform 
TRAP ~ derived using the trapezoidal quadrature 
FILN - derived using the Filon quadrature 
abe is a two part code related to the system tested as follows: 
ab - Alpha numeric code associated with the type of system pulse 
tested. 
l_ - Theoretical; first order system. 


11 - Theoretical; cascaded first order systems. 


2 Theoretical; second order system. 


EX - Experimental; test heat exchanger. 

ec - Alpha code to indicate whether or not the time data has been 
reduced by subroutine. 
REDPT fou ttn Dh teens) 


F - Data not reduced (original) 


R - Data reduced 
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d. efgh represents the name of the independent variable plotted. The 
following two cases occur: 
TIME ~ time 


FREQ - frequency 


The dependent variable axis on the graphs appears in the following 

general format; 
pqr_stu_-vwx__zz2z 

MIN VALUE AXTS UNITS MAX VALUE 

The first line of information provides the name of the dependent 
variable plotted, filtering used, if any, and the number of data points 
plotted as is explained below: 

a. pgr._ stu represents the two words in the name of the dependent 


variable. The following names are used: 


© 





AMP, RATIO - amplitude ratio 
PHASE LAG -/phase lag 
FREQ. CONT.- frequency content 
INPUT PULSE - input pulse (theoretical) 
OUT PULSE - output pulse (theoretical) 
FLOW GPM US - flow galions per minute U.S. (input pulse 
experimental) 
TEMP DEG F - temperature degrees Fahrenheit @utput pulse 
experimental) 
b. vwx is an alpha numeric code associated with the type of filtering 
used. The following cases occur: 


R - Raw data - no smoothing used. 
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RP311X - Polynomial least squares smoothing using a third order 

and 
P311X polynomial with eleven data points applied "X" times to 
the time data. When "X" is a blank, 1 is implied. 

M1311X - Same as case RP311X and P311X, but with hamming spectral 
smoothing also applied once. 

N2311X - Same as case RP311X and P311X, but with hanning spectral 
smoothing also applied twice using the appropriate algorithm 
each time. 

M13 - Raw time data with hamming spectral smocthing applied once. 

and 

Ml (The 3 has no meaning.) 

N23 - Raw time data with hanning spectral smoothing applied twice 

and 

N2 using the appropriate algorithm. (The 3 has no meaning.) 
Note: For information on the filtering algorithms, see Sections 5.4.2.2 
and 5.4.2.4. 

¢. zzzz are numerical values indicating the number of data points 
plotted. 

The second line on the axis for the dependent variable has the same 
definition as the first line on the axis for the independent variable, as 
already discussed. 

There are some graphs for which the axis labelling deviates slightly 
from the code above, however, these cases are explained in the section 
where such graphs appear. The general arrangement for the data places 
the input and output time pulses in appendices along with the frequency 


content graph for the input pulse. Theoretically generated data are 


located in Appendix I and the experimental data are located in Appendix ITI. 


i! 
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The amplitude ratio, phase lag and input pulse frequency content graphs, 
which differ from those in the appendices, are located in various sections 
throughout this chapter, where it was deemed most appropriate for making 
the desired comparisons. The exceptions to the above organization are 
theoretical runs 07 and 08. All the graphs related to these runs appear 


It} secuLon 0.2.5. 


6.2 Theoretical Analysis 

The theoretical analysis used time domain pulse data generated 
using the technique outlined in Chapter IV. In this analysis, all input 
pulses were rectangular in shape and were restricted to a steady state 
value of six and a peak value of nine. ‘These values were arbitrarily 
chosen because experimentation with a wide range of values resulted in 
no noticeable change in frequency domain results. A six and nine 
combination represents an input pulse magnitude of fifty percent of 
steady state which is reasonable for many physical processes. The 
theoretical pulse tests are numbered 01 to 08. Runs Oi to 06 deal with 
pulse testing a first order system, while run 07 is concerned with 


cascaded first order systems and run 08 with a second order system. 


Ores a etrect of Input Pulse<Duration 
The. results from runs 01 through 06, for a first order 
system with a five second time constant, demonstrate the effect of input 
Dulseedurataon., 6 DULatLONS Of 1,0, 62,5, 9:0, "h0- 0.) Lon, Lon UreuU mom) 


seconds were used which are 1/5, 1/2, 1, 2, 3, 5 and 15 times the time 


constant of the system tested. 
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6.2.1.1 Effect of Input Pulse Duration on the Frequency 
Content of the Input Pulse 








A comparison of the frequency content Graphs PFTOIC, 
PFTO2C through to PFTO6C (Appendix I) demonstrates that the first zero of 
the frequency content curve of a rectangular pulse occurs at lower and lower 
frequency values as the duration of the pulse is increased. This trend 
agrees with the mathematical theory presented in Section 3.2.2. The 
curve on Graph PFTO2C exhibits its first zero at a frequency of approxi- 
mately 2.46 cadians per second. It will be recalled from Section 3.2.2 
that the frequency content curve for a rectangular pulse exhibits its 
first zero when the relationship w-d = 297 is satisfied. In the case of 
run 02, the value of "d"' is 2.5 seconds so the first zero would occur at 
w = 2.512 radians per second. Considering the accuracy with which a 
numerical value can ne read from Graph PFTO2C, it is reasonable to 
conclude that the location of the first zero agrees with the analytical 
prediction. The occurrence of other zeros on Graph PFTO2C at frequencies 
which are integral multiples of the frequency at the first zero, further 
supports this conclusion. Examination of the other frequency content 
graphs in Appendix I yidds information in agreement with the conclusion 
above. 


Cacia eZ, Effect of Input Pulse Duration on the Amplitude 
Ratio and Phase Lag | 


The effect of input pulse duration on the amplitude 


ratio and phase lag can be observed by comparing amplitude ratio and phase 


lag graphs derived from runs Ol through 06 and presented in Section 6.2.1.3. 
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Three different Fourier transform techniques were used to obtain the 
graph presented in’Section 6.2.1.3 so for iene wee there are three 
Similar graphs, each derived using a different technique. Because the 
general effect of input pulse duration was the same regardless of the 
Fourier transform technique used, no distinction is made between the 
techniques in the discussion which follows. 

As outlined in Section 3.2.2, the frequency 
at which the first zero of the frequency content curve occurs represents 
the frequency at which the amplitude ratio and phase lag curves become 
unreliable. Generally speaking, this is due to division by small numbers 
in the calculational procedure. The amplitude ratio graphs in Section 
6.2.1.3 exhibit this characteristic because large discontinuities occur 
at frequencies which very closely coincide with the frequencies at the 
zeros of the frequency content curves for the related input pulses. 
The amplitude ratio graphs (Section 6.2.1.3) for runs 01, 02 and 03 
serve to demonstrate this situation. In Graph PFTOI1A, there are no dis- 
continuities in the curve up to four radians per second and the related 
frequency content curve, Graph PFTOIC (hekendts I), does not exhibit a 
zero until approximately 5.85 radians per second. In Graph PFTO2A, one 
discontinuity appears on the curve between two and three radians per 
second and the related frequency content curve, Graph PFTO2C, exhibits 
zeros at approximately 2.5 and 5.0 radians per second. The discontinuity 
between two and three radians per second in Graph PFTO2A is due to the 
zero at 2.5 radians per second in the frequency content curve (PFTO2C). 


In the case of Graph PFTO3A, three discontinuities appear; between one 


and two, two and three and three and four radians per second. The zeros 
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one 


inethesrelated frequency, content.curve, Graph PFTO3C, occur at 
approximately 1.28, 2.56, 3:84 and 5.12 radians per second. Study of 
results from other runs yields the same correlation between zeros in 
the frequency content curve and discontinuities in the amplitude ratio 
curve. 

It should be noted that the discontinuities in 
the amplitude ratios became less pronounced as the pulse width was 
increased. This could possibly be due to the reduction in area under 
the frequency content curve between the zeros. Visual inspection of 
Graphs PFTO2C and PFTO4C in Appendix I illustrates this change in area 
since both graphs have the same scale. For run 02 the input pulse 
duration was 2.5 seconds while for run 04 it was 10.0 seconds. 

When the pulse width became greater than twice 
the time constant the discontinuities due to the zeros in the frequency 
content became so numerous they appeared more like random noise. 
However, from the location of the theoretical high-frequency asymptote 
on the curves in Graphs PFTO4A, PFTO5A and PFIO6A in Section 6.2.1.3 
it appears that the graphical mean of this “noisy signal" is valid 
representation of the high-frequency portion of the amplitude ratio 
curve. On the other hand, the amplitude ratio graphs, PFTO2A, PFTO2ZA 
@pGaPFITOSA ine Section,6.2.1.3,,exhibit. discontinuities, that are distinct 
and separate and in no way like noise. Here the theoretical high- 
frequency asymptote intersects the horizontally oriented lines running 
between the vertical discontinuities at approximately the mid-point. 
The nature of this intersection would tend to indicate that valid data 


is being obtained between these discontinuities which implies that valid 
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data points are being obtained at frequencies between the zeros of the 
frequency content curve. In support of this somnt, it is interesting 
to note that Dreifke (25) was able to obtain valid amplitude ratio results 
by using only data points calculated at frequencies between the zeros 
of the frequency content curve. Further, Hougen (40) indicated that 
Driefke's work clearly demonstrated that valid information could be 
obtained between ‘these zeros. Clements (12), on the other hand, 
suggested that information beyond the first zeros was generaliy unre- 
liable. It, thus, appears from ones PFTO2A, PFTO3A and PFTO4A that 
this work supports Hougen's point of view. 

Hougen and Walsh (42) reported that deviations 
from the true amplitude ratio curve begin to appear when data points 
are calculated beyond a frequency equal to 80% of the frequency at the 
first zero of the frequency content curve. This characteristic appears 
in this work as can be seen from Graph PFTO2A in Section 6.2.1.3. The 
pronounced uncharacteristic rise in the amplitude ratio occurs at a 
frequency of approximately 2.0 radians per second which is just prior 
tosthe first discontinuity. On the related frequency content curve, 
Graph PFTO2C, 80% of the frequency at the first zero is approximately 
1.97 radians per second. Therefore, the uncharacteristic rise in the 
amplitude ratio curve occurs at the frequency predicted by the criterion 
of Hougen and Walsh (42). Other graphs in Section 6.2.1.3 also exhibit 
this behaviour. 

The phase lag graphs in Section 6.2.1.3 do not 
exhibit the sharp discontinuities evident in the amplitude ratio 


graphs. This is because of a breakdown of the subroutine ANGLE as 


outlined in Section 5.4.2.5. The segmented appearance of some of 
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the phase lag at low frequencies is due to the fact that data points 
were calculated at equal linear increments and then plotted on a 
logarithmic scale by drawing straight lines between these points: 


6.2.1.3 Amplitude Ratio and Phase Lag Graphs Derived 
by Pulse Testing on First Order System _ 


General Comments: 
a. Table 2 describes the graphs presented on pages 104-127 in the 
order in which they appear. 
b. A description of the code used for labelling the axes of these 
graphs has been given in Section 6.1. 


c. Data presented in these graphs were derived from the time domain 


pulse data presented in Appendix I. 


Three Fourier transform techniques were used in the derivation: 
1. Fast Fourier transform (FT) 

2. Trapezoidal quadrature (TP) 

3. Filon's quadrature (FN) 

d. All amplitude ratio graphs, except Graph PFTO2A, are drawn on 
the same logarithmic-logarithmic scale to facilitate easy 
comparison. 

e. All phase lag graphs, except Graph PFIO1B are on the same semi- 
logarithmic scale. 

f. The results obtained from the Fast Fourier transform technique 
(FT) utilized a time data sample interval equivalent to that on 
the graphs in Appendix I. The results obtained from either the 
Filon (FN) or trapezoidal (TP) quadrature utilized an interval 
that was twice that outlined in Appendix I because of the use 


of subroutine REDPT (Section 5.4.2.3). 
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g&. The theoretical high-frequency asymptote for the amplitude ratio 
curve has been drawn on the graphs along with a "4+" at the 
theoretical position of the amplitude ratio curve at the corner 
frequency. Also, on the phase lag graphs a "+" appears at the 
theoretical position of the phase lag curve at the corner 
frequency. The time constant for the first order system was 
5.0 seconds in all cases. 

h. The graphs on pages 104-127 are presented in the following general 
order: 

1. amplitude ratio calculated by 
€ #) Fr: data from pulsé tests in order from the 
narrowest to the widest input pulse. 
(nite) LP ees under: (1). 
Cita)  ENeaias unders (7). 


Zs) phase lag calculated by: (i), (ii) and (iii)..as, under_1. 


6.2.2 A comparison of Fourier Transform Techniques 
In order to obtain frequency response data from time 
’ 
domain pulse data, it is necessary to obtain a numerical approximation 
to the Fourier transform of the input and the output pulse. In this 
work, three techniques were used to evaluate the Fourier transform: 
a. Fast Fourier Transform (FFT) 


b. Trapezoidal quadrature (TP) 


c. Filon's quadrature (FN) 
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TABLE 2 


LIST OF FIRST ORDER SYSTEM FREQUENCY RESPONSE GRAPHS 


GRAPH 


IDENTIFICATION 


PFTOIA 
PFTO2A 
PFTO3A 
PFTO4A 
PFTOSA 


PFTO6A 


PTPO1A 
PTPO2A 
PTPO3A 
PTPO4A 


PTPO5A 


PFNOLA 
PFNO2A 
PFNO3A 
PFNO4A 
PFNO5A 


PFNO6A 


PAGE 


104 


105 


106 


107 


108 


109 


114 


INPUT 
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DURATION 


(SEC) 
1s 


2. 


1% 
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FOURIER 
TRANSFORM 
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FT 


FT 


FT 


FT 


FT 


FT 


TP 


FN 


FN 


COMMENT 


Amplitude 
Amplitude 
Amplitude 
Amplitude 


Amplitude 


Amplitude 


Amplitude 


Amplitude 


Amplitude x 


Amplitude r 


Amplitude 


Amplitude 
Amplitude 
Amplitude 
Amplitude 
Amplitude 


Amplitude 


ratio 
ratio 
ratio 
ratio 
ratio 


hate 


ratio 
ratio 
ratio 
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ratio 


ratio 
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INPUT 
PULSE 
DURATION 


TABLE 2 (CONT'D) 
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.0 


nn ene rs 


FOURIER 

TRANSFORM 

TECHNIQUE 
ie 
FT 


FT 


FN 


Phase 


Phase 


Phase 


Phase 


Phase 


Phase 


Phase 


COMMENT 
lag 
lag 


lag 


lag 


lag 


lag 
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The background of these three techniques has been 
discussed in Section 3.2.4 and the computer programs for their 
implementation has been discussed in Section 5.4.2.3. Generally speaking, 
all three techniques provided valid results for the cases considered in 
this work and consequently, the advantages and disadvantages of each 
technique appear to be more related to the implementation aspects than 
to the results yielded. 

The FFT is distinct from either of the other two techniques 
because: 

a. It has a one to one relationship between the number of time data 
points used and the number of frequency points calculated. 
b. The minimum frequency value and the increment between frequency 
points is fixed by the number of time data points and the 
sampling interval used. 
c. The number of time data points used must be a power of two and 
the sampling interval must be constant over the range of the 
time data. 
Because of the above requirements, careful design of each pulse test is 
necessary when the FFT is used. If the number of time data points and 
the sampling interval are not properly chosen, frequency information 
will not be obtained over the range of interest. These factors combined 
to restrict the span of frequency data that resulted from the pulse tests 
of the heat exchanger. 

During the preliminary evaluation of the FFT it was found 

that fewer than 512 time points yielded a frequency band of insufficient 


width and, therfore, in most cases reported herein, 1024 time points 
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were used. It should be noted, however, that no attempt was made to 
increase the time sample interval to the largest value which would 
adequately characterize the input pulse or the process tested whichever 
was limiting. An increase in sample interval would have compensated to 
some degree for the effect of a reduction in the number of time data 
points (Section 3.2.4). However, even with the maximum sample interval, 
LG the author's opinion that the number of time points desirable would 
be in the order of 256 or more. For this reason, the FFT does not 
appear to be a desirable technique to use when data has been obtained 
from an analog record and must be punched on computer cards for 
processing. In an application where the data is acquired directly from 
the process, as it was in this work, the FFT becomes more advantageous 
because the computing time involved appears in the order of four to five 
times less than that required by each of the other techniques. This 
time comparison is based upon the time required to obtain data suitable 
for plotting the frequency response. Usually equivalent results were 
obtained in the work using 1024 time points for the FFT and 360 time 
points for each of the other techniques. : 

In summary, the FFT appears to be undesirable to use 
unless an on-line data acquisition system is available. With on-line 
data acquisition, the only disadvantage is the need for careful experi- 
mental] design which may lead to undesirable compromises for some applications. 

The program BFKTY described in Section 5.4.2.5 contained 
an error in the equation which calculated the frequency content curve. 


The equation should have read: 
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PGs 


iH 


[ a2 + B2 | - DT/AREA but was programmed 


ROCs 


[EAE B? | /N/DT/AREA. By its nature, the error 
affected the ordinate scaling on some of the frequency content curves 
but did not affect the shape of the curve. The frequency content is 
normalized in all cases, so that the value of the ordinate at zero 

| frequency should be very close to one. When the scaling is labelled 
otherwise, it should be disregarded and a value of 1.00 should be 
considered at the point where the curve meets the ordinate axis. 

The trapezoidal (TP) and Filon (FN) techniques provided 
what appeared to be identical frequency domain curves for any given set 
of pulse data. The degree of this similarity can be observed by comparing 
the associated graphs in Section 6.2.1.3. Because this similarity was 
common to the results from all runs considered in this work, the results 
of the TP or FN technique, presented in Sections other than 6.2.1.3, 
were selected arbitrarily to represent the results from both techniques. 

The computing time was approximately the same for both 
techniques so the results in this work did not demonstrate any advantages 
for one technique over the other. However,’ Clements (12) compared these 
two techniques in greater detail than was considered here and reported 
a slight advantage for the FN technique. The principal reasons for 
this advantage were stated to be: 

a. TP is sensitive to higher frequencies; FN is not 
(Secttton Gnd). 
b. FN is less sensitive to pulse data with limited accuracy or 


random errors. 
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cayENiistless sensitive to the usé of a large sampling interval 
onthettai rot ithe pulse. 
In the light of this work and that of Clements, it appears reasonable to 
conclude that the FN technique has a marginal advantage over the TP 
technique. 

Both the FN and TP techniques are completely flexible with 
respect to selection of the frequency points to be calculated and the 
sample interval used for the pulse data. In most applications reported 
in the literature, two sample ee ye were used to characterize the 
pulse curve with a narrow interval used on the steep rise of the curve 
and a longer interval used on the slowly decaying tail. The two intervals 
made it possible to reduce the number of time samples used which saved on 
both computing time and data preparation time when the data was entered 
from cards. It can be seen that the above-mentioned flexibility makes 
the TP and FN techniques more advantageous than the FFT when the pulse 
data has to be entered using hand punched cards. lements (12) indicated 
that between fifty and one hundred data points per pulse curve are all 
that are required when the TP or FN technique is applied using a two 
sample interval program. In this work a single sample interval was 
used because the data were acquired directly from the process and computing 
time was not at a premium, 

The results obtained in this work using the three Fourier 
transforms are presented in Section 6.2.1.3. They exhibit some minor 
differences but no definite conclusions can be drawn on the basis of 


this limited investigation. From a study of the high-frequency asymptotes 
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it appears that the slope of the amplitude ratio curve is good for all 
the graphs when consideration is given to the effect of the zeros as 
discussed in Section 6.2.1.2. However, ia eben of the FT results 
shows that the amplitude ratio curve is generally high and the phase lag 
curve is generally to the right of the true curve at the corner frequency. 
In the case of the TP and FN techniques, the agreement between the 
calculated curve and the true curves at the corner frequency is good for 
both the amplitude ratio and the phase lag except for the results from 
tins 0 landt02 No explanation can be given for the consistent shift 
that is demonstrated in the results of the FFT and until future work 
determines the cause, it can only be stated that the FFT does not yield 
results as accurate as those obtained from TP and FN. 

It was observed in this work that the size of the sample 
interval used for the pulse data slightly affected the position of the 
curve on the amplitude ratio graph regardless of the transform technique 
used. No time was available to investigate this effect. It is interesting 
to note that the amplitude ratio curves do not always approach unity as 
the frequency approaches zero for the graphs in Section 6.2.1.3. In 
fact, the narrower the input pulse the farther the low frequency component 
of the curve lies below the unity axis. This would imply that the sample 
interval used (constant for all runs except 06) was too long to properly 
characterize the narrower input pulses. If this is the case, then the 
position of the curves in Graphs PTPOLA, PFNO1A, PTPO2A and PFNO2A at 
the corner frequency might be altered by using a shorter sample interval. 


Conversely, Graphs PFTOIA and PFTO2A would likely exhibit a greater error 
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at the corner frequency because the curves would be shifted upward. The 
results discussed in Section 6.2.5 provide further comment on the effect 
of the sample interval. In future work an investigation should be 
conducted to determine the effect the pulse curve sample interval has 


on the position of the amplitude ratio and phase lag curves 


6.2.3 The Effect of Spectral Smoothing on the Amplitude Ratio, 
Phase Lag and Frequency Content 


Spectral smoothing was implemented using the formulae out- 
lined in Section 3.4 using the program SMOTH discussed in Section 5.4.2.4. 
The investigation into spectral smoothing consisted of a series of trials 
involving application of the Hamming and Hanning spectral smoothing 
formulae. The author is not familiar with the detailed mathematical basis 
of the filters and it is not known if other filters, such as the exponen- 
tial or the least squares polynomial outlined in Section 5.4.2.2 would not 
have produced similar results. Nonetheless interesting results were 
obtained by applying the filters and possibly further studies will yield 
more significant information. 

In general spectral smoothing helped reduced the "noise" 
that appeared on some amplitude ratio plots due to the zeros in the 
frequency content curve of the input pulse (Sdeeton 6.2.1.2). The effective- 
ness of spectral smoothing increased as the input pulse duration increased. 
The graphs derived from runs Ol, 05 and 06 Bree ERC ed ins section Oc2ein3 
demonstrate how the effect of spectral smoothing increases with increasing 
pulse duration. (Note: In some cases, identical plots appear 


sequentially due to an error in the smoothing program which is explained 
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in Section 6.2.3.1). The effectiveness of the Hanning smoothing method 
was greater than that of the Hamming Beda because it involved the 
application of two formulae in succession opposed to the single formula 
for the Hamming method. The cases presented in Section 6.2.3.1 for runs 
O01, 05 and 06 clearly demonstrate the relative effects of each filtering 
method. Although the majority of the graphs presented in Section 6.2.3.1 
were derived using the FFT, a few graphs were derived using the FN 
technique and are presented to show that the effect was similar ere 
case. 

It was observed that the zeros of the frequency content 
curve appeared to be removed after spectral BAG si pe was applied. Since 
it is these zeros that cause the noise in the amplitude ratio, it is 
reasonable to assume that when noise is reduced by filtering, the zeros 
in the associated frequency content curve should be removed. Graphs 
PFTO6C, PFTO6G and PFTO6J in Section 6.2.3.1 demonstrate the effect of 
spectral smoothing on the frequency content curve. 

A large number of graphs are presented in Section 6.2.3.1 
so that anyone doing further work in this area may use them as a 
reference. It is difficult to comment here on all the comparisons 
which might be made so the reader is asked to use the table preceding 
the graphs and graph labelling code outlined in Section 6.1 to make any 
comparisons desired. 

It is interesting to note that the frequency at which the 
rising tail in Graphs PFTO6N and PFTO6R and the falling tail in Graphs 
PFTO60 and PFTO6S begins is the frequency at which aliasing Toole be 
predicted by the sampling theorem. Aliasingis predieced when w = Tr/At; 
for run 06 At was 0.2 so aliasingshould occur at w = 15.7 radians per 


second. This agrees very closely with the frequency at which the tails 
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on the. graphs referred to above rise and fall. 


Oreo) Amplitude Ratio, Phase Lag and Frequency 
Content Graphs Illustrating the Effect of 
Spectral Smoothing 


Ed a EL LR A nS es sl ba 
General comments: 

a. Table 3 describes the graphs presented on pages 142 - 164 in the 
order in which they appear. | 

b. A description of the code used for labelling the axes of these 
graphs was given in Section 6.1. 

c. Data presented on these graphs were derived from the time domain 
pulse data presented in Appendix I. Two Fourier transform 
techniques were used in the derivation: 

1. Fast Fourier transform (FT) 
2, Filon's quadrature (TP) 

d. Only two phase lag graphs are shown; Graphs PFTO6S and PFTO60. 
Breakdown of subroutine ANGLE (Section 5.4.2.5) rendered most 
phase lag graphs meaningless 

e. Discontinuities and noise which is evident in the graphs is due 
to the zeros in frequency content curves of the corresponding 
input pulses. 

f. Similar graphs are not necessarily on the same scale so careful 
consideration must be given to the scales when comparisons are 
made. 

g. The smoothing program contained a minor error which resulted in 
the loss of a data point. Where two graphs with identical 


identifications appear simultaneously, the first is derived from 
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the corrected version of the smoothing routine and the second 
is derived from the erroneous version. When graphs of smoothed 


data do not appear in identical copies, they have been derived 





using the erroneous smoothing routine; however, they still serve 

to illustrate the effect of smoothing. 

The frequency content graphs presented on pages 162 - 164 apply 

to the input pulses shown in Appendix I. They demonstrate the 

effect of spectral smoothing on the frequency content curve. 

For information on the Sane ie interval used on the time data 

associated with these runs, see Section 6.2.1.3. 

The theoretical high-frequency asymptote for the amplitude ratio 

curve has been drawn on the graphs along with a "+" at the 

theoretical position of the amplitude ratio curve at the corner 

frequency. Also, on the phase lag graphs a "+" appears at the 

theoretical position of the phase lag curve at the corner 

frequency. 

The graphs on pages 142 - 164 are presented in the following 

general order: ‘ 

1. amplitude ratio calculated by FT presented in order of 
increasing amounts of smoothing and in order of increasing 
input pulse width. 

2 phase lag calculated by FT in the same order as stated in 
13 

3. frequency content calculated by FT in the same order as 


stated in 1. 
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4. amplitude ratio calculated by FN in the same order as stated 
aye Lis 
5. frequency content calculated by FN in the same order as 


stated in 1. 


6.2.4 The Effect of an Output Pulse Error of Closure on the 
Amplitude Ratio With and Without Spectral Smoothing 


A limited number of analyses were performed with an error of 
closure created by using the technique outlined under item f of Section 
6.2.4.1. The results obtained agree with those reported by Clements (12), 
Dreifke and Hougen (24) and Hougen and Walsh (42) in that truncating the 
tail of the output pulse and creating an error of closure has a detrimental 
effect on the accuracy of the amplitude ratio curve obtained from the pulse 
data. In this work a general increased scatter occurred in amplitude ratio 
data at high frequencies when the error of closure was largest. The workers 
(12), (24) and (42) also observed that an error of closure in the output 
false caused the amplitude ratio curve to appear steeper than it should. 
They reported that in the presence of a large error of closure the resuits 
of a first order system could be interpreted as second order behaviour. In 
the case of Graph PFNO3W, in Section 6.2.3.1, the advanced position of the 
curve relative to the theoretical corner frequency and the steep initial 
slope after the corner frequency could be interpreted as exhibiting this 
type of behaviour. 

In the author's opinion the most significant effect of the 
error of closure was the obscuration of the discontinuities in the 


amplitude ratio curve which are due to the zeros in the frequency content 
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TABLE 3 


LIST OF FREQUENCY RESPONSE GRAPHS ILLUSTRATING THE 
EFFECT OF SPECTRAL SMOOTHING 


INPUT 
PULSE FOURIER 
GRAPH DURATION TRANS FORM 
IDENT IF [CATION PAGE (SEC) TECHNIQUE COMMENT 
PFTOIK 142 120 ee Amplitude ratio; no smoothing 
PFTOLN 143 0 FT Amplitude ratio; Hamming 
smoothing. Compare to PFTOLK 
PFTOIR 144 T20 ‘FT Amplitude ratio; Hanning 
smoothing. Compare to PFTOIK 
PFTO5K 145 22-0 FT Amplitude ratio; no smoothing 
PFTO5N 146 Zoe0 FT Amplitude ratio; Hamming 
smoothing. Ordinate scale 
change compared to PFTOSK. 
PFTOSR 147 250 FT Amplitude ratio; Hanning 
smoothing. Ordinate scale 
change compared to PFTOSK. 
PFTO6K 148 TW FT Amplitude ratio; no smoothing 
PFTO6N 149 fer FT Amplitude ratio; Hamming 


smoothing. Ordinate scale 
change compared to PFTO6K. 
Rising tail illustrates 
aliasing. Graph obtained by 
using the oot ten smoothing 


program. 
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TABLE 3 (CONT'D) 


LIST OF FREQUENCY RESPONSE GRAPHS ILLUSTRATING THE 
EFFECT OF SPECTRAL SMOOTHING 


INPUT 
PULSE FOURIER 
GRAPH DURATION TRANSFORM 
IDENTIFICATION PAGE (SEC) TECHNIQUE COMMENT 

PFTO6N 150 (pe) FT Same graph as preceding but 
Sutained by using the erroneous 
smoothing program. 

PFTO6R Po) Po. FT Amplitude ratio; Hanning smoothing 
Ordinate scale change compared tc 
PFTO6K. Rising tail illustrates 
aliasing , Graph obtained by using 
the corrected smoothing program. 

PFTO6R 152 ‘ipl % FT Same aon as above but 
obtained by using the erroneous 
smoothing program. 

PFTO60 53 12-0 FT Phase lag; qamming smoothing. 
Derived from same analysis as 
PFTO6N. Dropping tail fae 
trates aliasing.Graph obtained 
by using the corrected smoothing 
program. 

PFTO60 154 7 aU FT Same graph as above but obtained 


by using the erroneous smoothing 


program. 
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LIST OF FREQUENCY RESPONSE GRAPHS ILLUSTRATING THE 


. GRAPH 
IDENTIFICATION PAGE 
PFTO6S 150 
PFTO6S 156 
PFTO6C 157 
PFTO6G 158 
_ PFTO6J 159 


INPUT 


PULSE 


DURAT ION 


(SEC) 


13.0 


iD 0 


ee 


13.0 


Bx 


EFFECT OF SPECTRAL SMOOTHING 





FOURIER 
TRANS FORM 


TECHNIQUE 


FT 


FT 


FT 


FT 


FT 


COMMENT 
Phase lag; Hanning smoothing. 
necived from same analysis as 
PFTO6R. Dropping tail illus- 
trates aliasing Graph 
obtained by using the corrected 
smoothing program. 
Same graph as above but obtained 
by using the erroneous smoothing 
program. 


Frequency content curve with no 


| smoothing applied. (Note: The 


PFTO6C here and in Appendix I 


are the same curve except for 


the frequency range plotted.) 
Frequency content curve for the 
same input pulse that yielded 
PFTO6C but with Hamming 
smoothing applied. 

Frequency content curve for the 
same input pulse that yielded 
PFTO6C but with Hanning 


smoothing applied. 
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TABLE 3 (CONT'D) 


LIST OF FREQUENCY RESPONSE GRAPHS ILLUSTRATING THE 


PAGE 


160 


BOL 


162 


163 


164 


INPUT 
PULSE 
DURATION 


(SEC) 
fo. 0 


732.0 


(ee) 


bral) 


ee 


EFFECT OF SPECTRAL SMOOTHING 


FOURIER 
TRANS FORM 


TECHNIQUE 


_EN 


FN 


FN 


FN 


FN 


COMMENT 
Amplitude ratio plot; equive- 
lent to PFNO6A (eters 62 25713) 
but with Hamming smoothing 
applied. 


Amplitude ratio plot; equiva- 


- lent to PFNO6A (Section 6.2.1.3) 


but with Hanning smoothing 
applied. 

Frequency content curve for the 
input pulse in PTHO6A in 
Appendix I. No smoothing 
applied. 

Frequency content curve for the 
same input pulse that yielded 
PFNO6C but with Hamming 
smoothing applied. 

Frequency content curve for 

the same input pulse that 
yielded PFNO6C but with Hanning 


smoothing applied. 
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of the input pulse. Because of this, the high-frequency asymptotes on 

the graphs outlined in Section 6.2.4.1 do not exhibit the correlation with 
the amplitude ratio discussed in Section 6.2.1.2. In fact, for Graph 
PEIQIW,£ ttwdis difficult to see any correlation at all between the high 
frequency asymptote and the plotted curve. 

Graph PFN3WM and PFN3WN in Section 6.2.4.1, are examples of 
the effect of spectral smoothing in the presence of an error of closure. 
It appears that the smoothing caused deterioration of the data if it had 
any effect at all. 

Because only the output pulse had an error of closure, the 
frequency content for the input pulse was unaffected. Therefore, Graph 
PFTO3C in Appendix I is the frequency content curve related to the graphs 
Ouetined, in, Section 6,264.1. 


6.2.4.1 Amplitude Ratio Graphs Illustrating the Effect 
of an Output Pulse Error of Closure With and 


Without Spectral Smoothing inne 
General comments: 
a. Table 4 describes the graphs presented on pages 169 = lyaiin tie 
order in which they appear. 
b. A description of the code used for labelling the axes of these 
graphs was given in Section 6.1. 
c. Graphs PFN3WM and PFN3WN do not have graph identification nuabers 
which conform with the code outlined in Section 6.1. These two 
graphs illustrate the effect of spectral me Pea when an error 


of closure exists 
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The error of closure on an output pulse is defined as the 
difference between the value of the last output time point 
considered in the Fourier transform and the steady state value 

of the output befcre the pulse. The percent errorof closure 

is calculated by dividing the error of closure by the maximum 
deviation of the output from the steady state during the pulse, 
i.e., the maximum change in the output during the pulse 

Data presented in these graphs were derived from the input-output 
pulses presented in Graphs PTHO3A and PTHO3B located in Appendix I. 
The error of closure was obtained by choosing the number of time 
points usec in caiculations so that the input pulse was closed and 
the output pulse was not. 

Two Fourier transform techniques were used to derive these graphs: 
1. Fast Fourier transform (FT) 

2. Filon's quadrature (FN) 

Some graphs have been plotted using both a continuous curve and 

a series of points. The graphs using points are included to 
provide an easy means for comparison with experimental results 
which are presented in point form and involve errors of closure. 
All graphs are presented on the same scale to facilitate comparisons. 
The sample interval on the time data used in these runs was 0.1 
seconds. 

The theoretical high-frequency asymptote for the amplitude ratio 
has been drawn on the plots along with a "+" at the theoretical 


position of the amplitude ratio curve at the corner frequency 
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TABLE 4 


LIST OF FREQUENCY RESPONSE GRAPHS ILLUSTRATING 
THE EFFECT OF AN OUTPUT PULSE ERROR OF CLOSURE 


PERCENT 
FOURIER ERROR 
GRAPH TRANSFORM OF 
IDENTIFICATION § PAGE = TECHNIQUE = CLOSURE COMMENT 
PFTO3U 169 FT 1. 56 Amplitude ratio. This graph 
was obtained from the same 
pulse data used for Graph 
PFTO3A (Section 6.2.1.3) but 
a truncation error of closure 
was introduced. (A change in 
number of time points processed 
makes this plot difficult to 
compare to PFTO3A because the 
FI frequency range is a 
function of the number of time 
points; see Section 3.2.4. 
PFTO3U 179 FT L356 Point graph using the data 


plotted in the preceding graph. 


PFNO3U Vi FN 0.96 Amplitude, ratio. This graph 
was obtained from the same 
pulse data used for Graph 
PFNO3A, (Section 6.2.1.3) but 
a truncation errer of closure 


was introduced. 
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TABLE 4 (CONT'D) 


LIST OF FREQUENCY RESPONSE GRAPHS ILLUSTRATING 
THE EFFECT OF AN OUTPUT PULSE ERROR OF CLOSURE 


PERCENT 
. FOURIER ERROR 
GRAPH TRANSFORM OF 
IDENTIFICATION PAGE TECHNIQUE CLOSURE COMMENT 

PENO3W ti2 FN 0.96 Amplitude ratio. This graph 
was obtained from the same 
pulse data used for Graph 
PFNO3A (Section 6.2.1.3) but 
a truncation error of closure 
was introduced, 

PFNO3W Die FN 10%4/ Point graph using the data 
plotted in the preceding graph. 

PFN3WM 174 FN LO an Amplitude ratio. The same 
data as used for Graph PFNO3W 

, but hamming smoothing has been 

applied. 

PF N3WN a) FN LO Amplitude ratio. The same 


data as used for Graph PFNO3W 
but hanning smoothing has been 


applied. 
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6.2.5 Two Cascaded First Order Systems and a Second Order 
Underdamped System 


Theoretical runs 07 and 08 involved pulse testing two 
cascaded first order systems and a second order underdamped system, 
respectively. The object of these runs was to demonstrate that the 
pulse analysis procedures used in this work were valid for systems 
other than a simple first order. The parameters used for the two systems 
tested were arbitrarily chosen and are given in Section 6.2.5.1 along 
with all the graphs associated with each run. 

The amplitude ratio and phase lag graphs obtained are 
characteristic of the systems tested except for an unnatural attenu- 
ation at the low frequency end of the curves. This attenuation is 
attributed to the large sample interval and narrow input pulse which 
was discussed in Section 6.2.2 for the first order system. [It is 
interesting to compare the effect of pulse durations and -sample interval 
(items f and g, Section 6.2.5.1) on the amount of low frequency attenu- 
ation in the amplitude ratio graphs in Section 6.2.5.1. In Graph PFTO7A, 
obtained using a sample interval of 0.2 seconds, there is less low 
frequency attentuation than in Graph PFNO7A, which was obtained with a 
sample interval of 0.6 seconds. In both cases the input pulse duration 
was 2 seconds and the time constant of the two cascaded first order 
systems were 2 and 10 seconds. This behaviour is in agreement with 
that discussed in Section 6.2.2 where the low frequency attentuation 
for a first order system was greater when the ratio of sample interval 
to input pulse duration was high. On the other hand, for run 08 the low 


frequency attentuation in Graph PFTO8A and in Graph PFNO8A is the reverse, 
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or at least does not conform with, the previous behaviour. ToeLeroue, 


the results in Section 6.5.2.1 further demonstrate the need, expressed 


in Section 6.2.2, for additional study into the effect the time sample 


interval has on the position of the amplitude ratio curve. 


A. 


(a Tae ae | Time and Frequency Domain Graphs Derived by 
Pulse Testing Two Cascaded First Order Systems 


Z 


General comments: 
Table 5 describes the graphs presented on pages 182 - 195 in the 
order in which they appear. 
A description of the code used for labelling the axes of these 
graphs was given in Section 6.1. 
All of the graphs associated with runs 07 and 08 are presented on 
pages 182 - 195. The input and output pulse data was obtained 
using the methods outlined in Chapter IV. 
Three Fourier transform techniques were used to derive the 
amplitude ratio and phase lag graphs: 
1. Fast Fourier transform (FT) 
2. Trapezoidal quadrature (TP) 
3. Filon's quadrature (FN) 
Similar graphs are not necessarily on the same scale so careful 
consideration should be given to scales when comparisons are made. 
The duration of the input pulses applied to the two systems were: 
1. cascaded first order systems - 2 seconds 


fy second order - 1 second 
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The time data sample intervals were as follows: 
1. Using the FT technique: 

( i) cascaded first order systems - 0.2 seconds 

(ii) second order - 0.2 seconds 
2. Using the TP and FN techniques: 

( i) cascaded first order systems - 0.6 seconds 

(ii) second order ~ C.4 seconds 
The cascaded first order systems had time constants of 2 ena 10 
seconds. The second order had a natural frequency of 0.5 radians 
per second and a damping ratio of 0.1. 
The theoretical high-frequency asymptote for the amplitude ratio 
has been drawn on the graphs along with a "+" at the theoretical 
position of the amplitude ratio at the corner frequency of the 


first order systems. 


For the cascaded first order systems, the straight line approximation 


to the phase lag for each first order system appears as a dotted 
line. A "+!" appears at the corner frequency of each first order 
system. At the corner frequency of the second first order system 
a third "+" appears, which is a graphic summation of the individual 
phase lags at that frequency. For the second order system phase 
lag a "+" appears at the theoretical location of the phase lag at 
the natural frequency of the system. 

The general arrangement of the graphs presented in this section 

is as follows: 

iit pulse 


2. frequency content of input pulse 
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3. output pulse 

4. amplitude ratio derived by FT 

>. phase lag derived by FT 

6. amplitude ratio derived by TP or FN 


7. phase lag derived by TP or FN 


6.3° Experimental Analysis 
In the experimental analysis time domain pulse data were obtained 
from the test heat exchanger process using the technique outlined in 
Chapter V. In these experimental tests, rectangular and ramp~-shaped 
tube flow (cold fluid) pulses were used as input pulses. The output pulse 
for all runs was the outlet temperature of the counter-flowing shell stream 
(hot fluid). For each run the steady state conditions before the pulse 
were approximately: 
a. Tube flow - 8.00 gpm (U.S.) 
Seeeone! leflow =~ 15.00 gpm (U.S. ) 
c. Tube temp - in = 5/7.9°F; out = 80.8 
dameotet. temp in = 149.5°F; out peul37ek 
The maximum amplitude for the flow pulse was approximately 12.00 gpm 
(U.S.) for every run meaning a magnitude change of fifty percent of the 
steady state. 
The experimental run numbers range from 10 to 20 inclusive with 
number 15 being deleted owing to loss of some of the data. It should 
be noted that graphs derived from experimental rune are not arranged in 


order of run number but rather in order of input pulse duration starting 


with the rectangular shape and following with the ramp shape. 
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TABLE 5 


LIST OF GRAPHS ASSOCIATED WITH PULSE TESTING TWO 
A CASCADED FIRST ORDER SYSTEMS AND SECOND ORDER SYSTEM 


FOURIER 
GRAPH TRANS FORM 
IDENTIFICATION PAGE TECHNIQUE | COMMENT 
PTHO7A 182 Input pulse applied to the cascaded 
| first order systems. 

PFTO7C 183 FT Frequency content curve of input pulse. 

PTHO/B 184 Output pulse from the cascaded first 
order systems when forced with the 
pulse shown in Graph PTHO7A 

PFTO7A 185 FT Amplitude ratio of the cascaded first 
order systems. 

PFTO/7B 186 FT Phase lag of the cascaded first order 
systems. 

PTPO7A 187 TF Amplitude ratio of the cascaded first 
order systems. 

PTPO7B 188 os Phase lag of the cascaded first order 
systems. 

PTHOS8A 189 Input pulse applied to the second order 
system. 


PFTO8C 190 FT Frequency content of the input pulse. 
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TABLE 5 (CONT'D) 


LIST OF GRAPHS ASSOCIATED WITH PULSE TESTING TWO 
A CASCADED FIRST ORDER SYSTEMS AND SECOND ORDER SYSTEM 


FOURIER 
GRAPH TRANS FORM 
PTHOSE £21 Output pulse from the second order 
| system when forced with ease 

shown in Graph PTHOSA. 

PFTO8A ig 2 FT Amplitude ratio of the second order 
system. 

PFTO88 193 FT Phase lag of the second order system. 

PFNO8A 194 FN Amplitude ratio of the second order 
system. 

PFNO8&8B tos FN Phase lag of the second order system. 
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The graphs of the pulse data and the frequency content of the 
input pulse for each run are presented in Appendix II. The runs which 


were made can be summarized as follows: 


INPUT PULSE 


RUN NO. SHAPE = DURATION (SEC) 
14 Rectangle io 
10 Rectangle 320 
12 Rectangle 6.9 
16 ectangle 6.0 
11 Rectangle 10.0 
17 Rectangle 45.0 
18 Ramp 6.0 
13 Ramp 10.0 
be Ramp 13.0 
20 Ramp 20.0 


The number of data points on the amplitude ratio and phase lag 
graphs derived using the Fast Fourier Transform (FFT) cover a relatively 
narrow frequency range. This is related to the sampling interval which 
affects the frequency range as mentioned in Sections 3.2.4 and 6.2.2. 

This range is less than adequate to truly characterize the heat exchanger. 
The problem with the results obtained with the FFT is related to the pulse 
data sampling interval which was 0.25 seconds. In all likelihood, this 
interval is far less than that required to adequately characterize the 
response of the heat exchanger process. If a larger sample interval 

had hee used, the frequency band would have been .extended on both ends 


and the results would have been more useful. However, these graphs do 
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serve to demonstrate the problem which can be encountered when a pulse 
test is poe properly designed giving ee ere raeies to the restrictions 
imposed by the FFT. It should be emphasized here that improper design 
implies the FFT yields insufficient, not erroneous, data because the 
results obtained from the FFT correlate with those obtained using the 
other two techniques. Due to the limited usefulness of the FFT results, 
a minimal number of graphs obtained using this technique are included in 
Pecegon! G,0.2. 1. 


6.3.1 The Effect of Input Pulse Duration and Shape on Frequency 
Content 





The frequency content curves for the experimental input 
pulses (flow) are presented in Appendix II. Im each case the general 
shape of the curve was in agreement with the results of pulse shape 
studies performed by Dreifke (25), Clements (12) and Hougen (40). 

For the rectangular shaped pulses the frequency content 
curves exhibited distinct zeros which occurred at the frequencies predicted 
by theory (see Section 3.2.2}. As examples, consider Graphs PFNI6C, 

PFN11C and PFNI7C in Appendix II, where Pheatnnae pulse durations were 

6, 10 and 15 seconds, respectively. Theorétical ly, therhinse zero an 

the frequency content curve should occur at the frequency when w ~ d = 277, 
which for these examples would be 1.05, 0.628 and 0.419 radians per second, 
respectively. A study of the graphs reveals that the frequencies at the 
zeros agree with these values within a reasonable experimental error. 

Also, it should be noted that the second and third zeros, where plotted, 


occur at frequencies which are multiples of the frequency value at the 


first zero. This also agrees with the theory in Section Dieieir cue 


. 


} am I } 
193 t> Lene! ts 
Ga2? Bg ww" wast 
4" ay 
_ is ee 


gtd I” wo ta ijosow por oe te cotta ate tobe a 


t ‘ 


ais 


s$- &. g amr cane at eae aft 3iw 2e0 
~ Sh Salli eS 
oy ‘iets ) 


4 
; 
7 inn, 
‘Gr 
= 
5 3° 
ig meldotg ons 
.¢ id - . ‘ i 
y mg 
. 
: LB | 
e ‘ 
ayyt 
‘ | 
rh 
if fie 
o 
- * 
5 
) it blivow 
wus 
; iz a [i324 4 
* = le 


meat & class ge0 lav 


chaaeye 


oxid? bee beoose tid Jatt baton ad bios ib 


- 
: 
.r ° kit 4 
ee oft J 
‘ . 
. 
_ a «4 
‘ i a "y? b 
* 
uy 
t 
. 
j 
i ia 
P : 
r 4 
i 
- 
* 7. 4 
' 1 
2 
— 
7 
» 
f 
{ ‘ 
1 
. ‘ 
) 
y 
4 
‘ 4 bres 
~ 
IneinTes The 7 | The 
- * 


«ss Larean 
if Yo ybuse A 


saei2 miiw ontge. 508 


a 4 Pa a leroy 7 rb , 












Ss sert2 contd 
viveqosq Jom# Sf 


-T sud ve 


beeog 


ne ait welt ¢ 


“i evsgoede 
- ef 






Te hi 3 aN 


ie ¥y 5 sf s 


-_. 
\ ; 


“re 


-198- 


For the ramped shaped pulses the frequency content curves 
were more difficult to compare with the theory on a quantitative basis 
because they do not exhibit zeros. Therefore, the validity of the curves 
obtained in this work was based upon a general agreement with the results 

reported by other workers (12, 25, 40). That is, the curves monotonically 
decreased in amplitude with increasing frequency but never Paty reach 
zero amplitude, and the rate of decay in amplitude became greater as the 
pulse duration became longer. These characteristics are exhibited in 

the frequency content curves in Appendix II for runs pee) and 20. 


6.3.2 A Discussion of the Amplitude Ratio and Phase Lag of 
the Test Heat Exchanger 


In general, the amplitude ratio and phase lag graphs obtained 
from the test heat exchanger were noisy, so that continuous line graphs 
were somewhat obscure. It was found that plotting the data in point form 
rendered the graphs more meaningful and this procedure was used for all 
the experimental amplitude ratio and phase lag graphs. 

Owing to time limitations, under which the experimental 
phase of this work had to be conducted, no repeated runs were possible. 

A total of ten pulse tests (runs) were conducted over a two-day period 

and the data obtained were analyzed in the following week. Because of 

the conditions for testing, the discussion and conclusions presented in 
the following text should be further substantiated before they are used 
as a strong guideline & future work. 

Runs 12 and 16 were the only two runs for which the pulse 
duration and shape were the ahs (six second-rectangular). Run 13 
was, in the author's opinion, for reasons given later, kite pulse test 


which yielded the most valid frequency response data. 
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In order to evaiuate the frequency response results 
obtained, it was necessary to establish the low frequency or steady 
state gain of the test heat exchanger for the operating point at which 
the pulse tests were conducted. If it is assumed that the first half 
of the long duration rectangular pulse used in run 17 can be considered 
as a step, then (from data in Table 6) the steady state gain of the 
heat eschanger was approximately 2 04/3.38 = 0 603. This means that 
Graphs PTP14A, PTPO1A and PFN18A are all in error because in each case 
an amplitude ratio of greater than one is demonstrated. It is inter- 
esting to note that in each of these tests the pulse duration was short 
relative to other pulses of the same shape. It is the author's opinion 
that the erroneous nature of these runs was to some extent related to an 
insufficient driving force on the input pulse as discussed in Section 3.2. 

Also, in reference to short duration input pulses, it is 
interesting to note the "noisy' nature of the frequency content curves 
in Graphs PFN14C and PFT14C (Appendix II) which were derived from the one 
second duration rectangular input pulse. It is possible that this "noise" 
was a result of the lower signal to noise ratio which exists for shorter 
duration time pulses 

As mentioned previously, it is the author's opinion that 
the results from all runs are invalid with the possible exception of 
run 13. This opinion is based upon the fact that all experimental runs 
exhibited a significant areae of closure on both the input and output 
pulse It has been demonstrated in this work and reported by others 


(Section 6 2.4) that an error of closure on the output pulse alone tends 
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to render the amplitude ratio and phase lag graphs unreliable In the 
example shown in Graph PFNO3W on page 172 (discussed fn SeCtron Gr22) 5 
an error of closure of 10 7% on the output pulse rendered the amplitude 
ratio curve unreliable. From a study of the errors of closure on the 
output pulse alone, only Graph PTP17A, PFN18A, PFN13A and PFT16A can be 
considered to contain valid information. Examination of these graphs 


lead to the following comments: 


a. Graph PTPI7A - The data points are badly scattered and the location 
of the amplitude ratio Peers, not be readily determined. Some 
of the scatter could be due to error of closure and the rest could 
be attributed to the zeros in the frequency content curve of the 
input pulse. These occur at frequencies of approximately 0.875, 
Wi, 2.02) and 37> radfans ‘per second 

b. Graph PFNI8A - The run can be declared invalid on the basis of a 
study of pulse data in Graphs PEX18A and PEX138B in Appendix IT. 

‘It can be seen that the system was not at steady state when the 
pulse was introduced, in fact the temperature was dropping From 
the information under item (f) in Section 6.3.2.1, it is apparent 
that the maximum temperature change which occurred was excessively 
large in comparison with data obtained from runs 13, 19 and 20 

in which the input pulse durations were longer than that used in 
run 18. (All these runs involved ramp pulses.) On the basis of 
this information it is reasonable to suggest that the pulse in 

run 18 served to amplify the already decreasing temperature so 


that a greater then normal temperature deviation oecumred. It 
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is possible that the amplitude ratio of greater than one in 
Graph PFN18A is due to this condition as well as to the short 
pulse duration as discussed previously. 

c. Graph PFNI3A .- The data points are net too severely scattered and 
the error of closure on the output pulse is the smallest of all 
the experimental runs. This appears to be valid. 

Gd. Graph PFT1L6A ~ The results which cover a narrow frequency range 
were obtained from the Fast Fourier transform (Section 6.3). The 
narrow range makes it virtually impossible to establish the 
validity of this graph. 

It should be pointed out that the value of the error of 
closure, as defined in this work (Section 6.3.2.1), is totally dependent 
upon the value of the iast pulse data point selected in the calculation 
of the Fourier transform. This means that a large error of closure could 
result when, in fact, the noisy time data has a mean value that represents 
a well-closed puise. For example, the error of closure for Graph PFN13A 
is less than that for Graph PFT13A, although the same pulse data were 
used in both cases. Therefore, in the above analysis, it was necessary 
to apply a weighting factor to the relative quality» of the steady state 
data obtained after the pulse (Appendix II). It appears that the steady 
state data in from run 13 is superior to the data from all other, runs 
which serves to further substantiate the validity of run 13. 

On the basis of the above discussion, it seems reasonable 
to conclude that the errer of closure is a dominant factor in results 
obtained from all the experimental runs. It is the author's opinion that 
the majority of data scatter on the frequency response results would 


disappear if the error of closure was minimized or eliminated. 
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Because of the poor quality of the data obtained in the 
experimental runs, it was not possible to draw any conclusions regarding 
the relative merits of the two pulse shapes used. Theoretically the 
ramp pulse should be better because it does not exhibit zeros in its 


frequency content curve. 


6.3.2.1 Amplitude Ratio and Phase Lag Graphs Derived 


a. Table 8 describes the crepieuhtes mired on pages 209 - 238 in the 
order in which they appear. 

b. A description of the code used for labelling the axes of these 
graphs was given in Section 6.1. 

c. The data presented in this section was derived from the time 
domain pulse data presented in Appendix II. Three Fourier 
transform techniques were used in the derivation: 

1. Fast Fourier transform (FT) 
2. Trapezoidal quadrature (TP) 
3. Filon's quadrature (TP) 

d. For the results obtained using FT, the sample interval on the 
time data was Q 025 seconds. For the results obtained using 
TP or FN, the interval was 0.1 seconds because of the use of 
subroutine REDPT, Section 5.4.2.3. The effect of REDPT on the 
data can be seen by comparing Graph PEX13A with Graph PEX13C 
(Appendix II) where the data for Graph PEX13C was derived by 
selecting every fourth point feet the data plotted in Graph PEX13A. 


A similar comparison can be made between Graphs PEX13B and PEX13D 
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Error of closure is defined as the difference between the average 
steady state before the occurrence of the pulse and the last data 
value used in the calculation of the Fourier transform. The 
percentage error of closure is calculated by dividing the error 
of closure by the maximum deviation of the variable from the 
average steady state during the pulse, i.e., the maximum change 

in the variable during the pulse. In these cases, the averaged 
steady state value was the steady state calculated by programs 
PRO or erlic (Section. 5.4273)" the value of the*pulse curve 

at the point of maximum deviation was read from the pulse data 
plots presented in Appendix II. The actual values used to deter- 
mine the errors of closure are given in Tables 6 and /. 

The values used for the steady states and maximum deviations are 
listed in Table 6. Each set of values in this table is related 

to an amplitude ratio and phase lag graph presented on pages 209 = 
238. A set of values applies to a graph when the Fourier 
transform technique and the run number are the same as the 
Identification designation in Table 6 

The values used for the errors of closure are listed in Table ibe 
The relationship between the Identification designation in 

Table 7 and the graphs presented in this section is as outlined 
under item (f). 

All amplitude ratio. graphs are on the same logarithmic-logarithmic 


scale to facilitate comparisons. A single exception is Graph 


PFN13D which has a different abscissa scale. 
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TABLE 6 


INFORMATION ON THE INPUT AND OUTPUT 
PULSES ASSOCTATED WITH PH EXPERIMENTAL RUNS 








__INPUT PULSE (GPM (US)) ____ OUTPUT PULSE (°F) 
STEADY PEAK MAXIMUM STEADY DIP MAXIMUM 
IDENTIFECATION STATE (MAX. ) DEVIATION STATE (MAX.) DEVIATION 
TP14 . Beals Oaao 3.4277 136.99 136.10 0.89 
TP10 8.13. Oazao 3.97 137.94 136.36 1-53 
TP12 8.16 “288 B aie WBS 135550 2751 
TP16 S12 Saale 3.39 Mpte 135-28 P14 
TP11 $18 Calitor 3 £73 We ey | 135.16 225 
TP17 8.16 P4054 3.38 We 7ee4? 135.60 2.04 
FN18 6.25 F190 3.65 HERO 135.37 2.54 
FN13 8.10 O.tviFo5 3.95 137.86 136.20 1. 66 
FN19 8,10 OFPRS0 3.40 18763 135.36 1.97 
FN20 B12 P09 3 5) 137.90 135.09 2.81 
FT14 S12 Vrs 3.28 136.98 136.10 0.88 
FT12 8.09 11.88 3.79  BRBG207 elo. S0 2253) 
FT16 S12 Vee 3.39 BM? | 135228 2.04 
FTL7 8.16. O-154 3.38 137.64 135.60 2.04 


FT13 8.08 £2.05 3 Ron 13.72386 136.29 «06 
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ERRORS OF CLOSURE ON INPUT AND OUTPUT 
PULSES FOR EXPERIMENTAL RUNS 
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ie ALL phase lag graphs are on the same semi-logarithmic scale 
to facilitate comparisons. 
j. Under the "Input Pulse Shape" column of Table 8, "RE" implies 
a rectangular pulse and "RA" a ramp pulse. 
k. The graphs on pages 209 - 238 are presented in the following 
general order which is not eecaat iy in accordance with run 
number; 
1. amplitude ratio calculated by: 
Meijte le us ier 
- data from pulse tests in order from the narrowest to 
the widest rectangular shaped input pulse 
( ii) FN using: 
- data from pulse tests in order from the narrowest to 
the widest ramp shaped input puise 
Cilia)» FE using: 
- as under (i) and (ii) above but with a reduced 
number of cases considered for each input pulse 
, 
shape 
2. phase lag calculated by: 
Ci),p(ii) and (dh) as iidicated in #G@l), 


Se ee The Effect of Time and Spectral Smoothing on the 
Experimental Results 


Using the data from run 13, 4 limited investigation was 
conducted to determine whether time and/or spectral smoothing would reduce 


the "noise" in the amplitude ratio graphs. 
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GRAPH 


PTP14A 
PTPLOA 
PTP12A 
PTP16A 
PIPLiA 


PleLys 


PFN18A 
PFN13D 
PFN19A 


PFN20A 


PFT14A 
PFT12A 
PFTL6A 
PFT1/A 


PFT13A 


PTP14B 
PTP10B 
PTP12B 
PTP16B 


PLP LLB 
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TABLE 8 


LIST OF FREQUENCY RESPONSE GRAPHS 


PAGE 


209 


INPUT PULSE 


DURATION 
1.0 RE 
350 RE 
6.0 RE 
6.0 RE 
10.0 RE 
5 A0 RE 
6.0 RA 
LOSO RA 
10 RA 
20.0 RA 
6 RE 
6.0 RE 
6.0 RE 
15.0 RE 
TORQ RA 
Hho) RE 
550 RE 
G20 RE. 
6.0 RE 
10.0 RE 


FOURIER 
TRANS FORM 


TP. 
TP 
EP 
LP. 
ane 


iP 


FT 


LP 
TP, 
dite 
DP 


Tp 


COMMENT 


Amplitude 
Amplitude 
Amplitude 
Amplitude 
Amplitude 


Amplitude 


Amplitude 
Amplitude 
Amplitude 


Amplitude 


Amplitude 
Amplitude 
Amplitude 
Amp Litude 


Amplitude 


Phase lag 
Phase lag 
Phase lag 
Phase lag 


Phase lag 


ratio 


GABTO 


ratio 


ratio 


rat lo 


ratio 


ratio 


IFUL. SCO) 


ratio 


ratio 


DEPSHIC TKO) 


BAeLO 


ratio 
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TABLE 8 (CONT'D) 


LIST OF FREQUENCY RESPONSE GRAPHS 


___ INPUT PULSE FOURIER 
GRAPH ' DURATION TRANSFORM 
IDENTIFICATION PAGE (SEC) SHAPE TECHNIQUE COMMENT 

PTP17B 229 1520 RE EP Phase lag 
PFN1SB 230 6.0 RA FN Phase lag 
PFN13B Pa $i 10.0 RA FN Phase lag 
PFN19B 232 0 RA FN Phase lag 
PFN20B 233 20.0 RA FN Phase lag 
PFTI4B 234 10 RE FT Phase lag 
PFT12B 223° 6.0 RE acFT Phase lag 
PFT] 6B 236 6.0 RE FT Phase lag 
PFT17B 237 1520 RE : FT Phase lag 


PFT13B . 238 10.0 RA FT Phase lag 
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The time smoothing involved applying a third order poly- 
nomial least square fit using eleven data points as discussed in 
Section 5.4.2.2. The effect of this smoothing on the time data can be 
seen by comparing various graphs in Appendix II. The data used to plot 
Graph PEX13A when smoothed is plotted in Graph PEX]13i. Similarly, the 
data plotted in Graph PEX13B when smoothed, appears as shown by Graph 
PEX13J. It was apparent from these graphs that the smoothing was 
successful in removing some of the higher frequency noise on the signal, 
but it was unsuccessful in altering the large discontinuities introduced 
by the DDC flow control on a one second scan cycle. The effect of the 
high-frequency noise on the frequency response data appeared to be 
insignificant. For example, in Section 6.3.3.1, comparison of Graph 
PFT13E, which is obtained from raw time data, and Graph PFT13W, obtained 
from smoothed time data, demonstrates that the effect of time smoothing 
MNegergible. It is the author's opinion that the effect of the error of 
closure overshadows any effect the high-frequency noise might have. 

The spectral smoothing was applied to experimental results 
with and without time smoothing. In all cases, as the graphs in Section 
6.3.3.1 demonstrate, spectral smoothing did nothing to improve results 
and in some cases, appeared to cause deterioration, i.e., Graph PFT13H. 
It should also be noted, however, that the application of spectral 
proothing in the presence of an error of closure did not improve the 
results in Section 6.2.4. 

A stuuy. of «the frequency content graphs in Section 6.3.3.1 


reveals that spectral smoothing did not tend to remove the zeros of the 
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frequency content curves as it had for the theoretical curves of 


Section ©:2.3.1. In*some cases, the spectral smoothing tended to 


. a "W " - 0 
introduce "false" zeros in the frequency content curves from experi- 
mental pulses. This may account for the fact that the results pre- 


sented in Graph PFT13H appear to have deteriorated as a consequence of 


spectral smoothing. 


Grae oc Amplitude Ratio and Frequency Content Graphs 
Lllustrating the Effect of Time and Spectral 
Smoothing — 





General comments: 


a. Table 9 describes the graphs presented on pages 244 ~- LTE By Ee wy 


Ww 


order in which they appear. 

b. A description of the code uged for labelling the axes of these 
graphs was given in Section ae he 

c. The data presented in this section was derived from the time 
domain pulse data for run 13 which is presented in Appendix II. 
The data presented in this section was derived from the time 
domain pulse data for run 13 which is presented in Appendix II. 
The Fast Fourier transform was used to calculate the results for 
all cases except Graph PFN13W which was derived using Filon's 
quadrature. 

d. All amplitude ratio graphs except Graph PFN13W are on the sane 
scale to facilitate comparisons. 

e. Ail the frequency content graphs have the same abscissa scale 


but not the same ordinate scale. 


f. Each of the seven amplitude ratio graphs presented on pages 244 
251 represent the results of following one of the four possible 


paths in the structure below from ray time data to amp Litude 
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raw time data WWW > time smoothing 
| Se 
Fourier transform -———--—- > spectral smoothing 


’ 


amplitude ratio 

g. The error in the smoothing program which was discussed in 
Section 6.2.3 and demonstrated in the graphs of Section 6.2.3.1 
was present when the smoothed graphs presented in this Section 
were obtained. However, the effect of the error was minor so 
the qualitative effect of smoothing observed in the graphs of 
this section can be considered valid. 

h. For information on the sample interval used on the time data 


associated with these runs, see item g, Section, 6.5.02. 


6.4 Conclusions 

In general, pulse testing proved to be a useful tool for dynamic 
testing. It should not be too difficult to obtain valid frequency 
response data from most chemical processes with a reasonable grasp of 
the mathematical theory of pulse testing and the experience of a few 
tests conducted on a known simple process, such as a first order system. 
ime the author's opinion, a successful pulse test requires a certain 
amount of intuitive judgment with respect to therchoice@ sf (the imput 
pulse shape amplitude and duration. There does not appear to hee 
"best" pulse for all situations, and to the best of the author's 
knowledge, there are no general guidelines for isis selection published 
in the literature. It appears that the best policy is to try several 


different pulses on each process until experience allows elimination of 


certain ones. 
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TABLE 9 


LIST OF AMPLITUDE RATIO AND FREQUENCY CONTENT GRAPHS 
ILLUSTRATING THE EFFECT OF SMOOTHING ON EXPERIMENTAL RESULTS 


FOURIER 
GRAPH TRANS FORM 
IDENTIFICATION PAGE TECHN IQUE COMMENT 

PFT13E 244 FT Amplitude ratio; no smoothing. 

PFT13W 245 ET | Amplitude ratio; time smoothing 
using a third order polynomial 
eleven point smooth applied three 
times. 

PFT13U 246 FT Amplitude ratio; spectral smoothing 
using Hamming method. 

PFT13N 247 FN Amplitude ratio; time smoothing using 
a third order polynomial eleven point 
smooth applied once and spectral 
smoothing using Hamming method. 

PFTL3Y 248 FT Amplitude ratio; data smoothing the 
same as for Graph PFT13N, except time 
smoothing is applied three times. 

PFT13H 249 FT Amplitude ratio; spectral smoothing 

' using Hanning method. 
PFT13D 250 FT Amplitude ratio; time smoothing 


using a third order polynomial 
eleven point smooth applied three 
times, and-spectral smoothing using 


Hanning method. 
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TABLE 9 (CONT'D) 


LIST OF AMPLITUDE RATIO AND FREQUENCY CONTENT GRAPHS 
TLLUSTRATING THE EFFECT OF SMOOTHING ON EXPERIMENTAL RESULTS 


GRAPH 
IDENTIFICATION 


PFNi3W 


PFT13G 


PETi3x 


BEEiSP 


PFTI3Z 


PEII3I 


PFT13Q 


PAGE 


Zou 


255 


250 


2h 


FOURIER 
TRANSFORM 
TECHNIQUE 


FN 


OFT 


FT 


FT + 


FT 


ini 


FT 


COMMENT 
Amplitude ratio; time smoothing 
using a third order polynomial 
eleven point smooth applied three 


times. 


Frequency content; no smoothing. 
Frequency content; data smoothing 
the same as for Graphs PFT13W and 
PFN13W. 

Frequency content; data smoothing 
the same as for Graph PFT13N. 
Frequency content; data smoothing 
the same as for Graph PrTioy. 
Frequency content; data smoothing 
the same as for Graph PFT13H. 
Frequency content; data smoothing 


the same as for Graph PFTi3D. 
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s work, the error of closure on the pulse curves seemed to 
be the greatest obstacle to obtaining useful and valid experimental 
results. In further work every effort should be made to minimize or 
eliminate this error. 

The spectral smoothing, as applied to the theoretical data, 
showed sufficient promise that further investigation into its usefulness 
would be well warranted. 

In the author's opinion, the use of an on-line data acquisition 
and control system cannot be considered advantageous for pulse testing, 
unless exhaustive tests are to be carried on particular process unit as 
was the intention in this work. In some ways, an on-line digital system 
can be a hindrance. Firstly, the data acquisition system tends to mask 
a good deal of the intuitive information which a person testing the 
process can normally obtain from studying analog recordings. In most 
of the pulse testing work reported in the literature to date, analog 
recordings have been used, so there Lo) Pete fut> tar fon otter experi- 


ences with digital systems. However, it can be postulated that a lack 


of analog recordings would be a particular hindrance to intuitive 
judgment when complicated interacting processes were pulse tested. 
Secondly, in view of the error of closure problem cited earlier, it 
would appear desirable in most cases, to study the data at the tail of 
the pulse and manually select the last value used in the Fourier trans- 
form so that the error of, closure is exactly zero. With the data 
acquisition system, it would be possible to develop programs to minimize 


the error of closure, but it is the author's experience that this would 


be more work than it is worth, except as mentioned eaxylier, in ‘thé case 
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of exhaustive pulse tests on a single process unit. Thirdly, in this 
work it was found that the minimum one second scan cycle of the DDC 
was not adequate to maintain a steady flow rate after the pulse was 
completed. This was evidenced by the sharp discontinuities one second 
apart on the input pulses shown in Appendix II. It is only reasonable 
to assume that these discontinuities were disturbances to the heat 


aN 


exchanger and, therefore, tended to invalidate the experimental pulse 
test results. 

On the basis of experience gained in this work, the author agrees 
with Hougen (39) who feels high sensitivity multi-channel analog strip 
chart recorders and high quality sensors represent the best equipment to 
use in pulse testing of most industrial processes. Usually a pulse 
testing program will be a short term study designed to gain specific 
information about a particular process, so control strategies can be 
developed before purchasing a data acquisition and control system, such 
as the one used in this work. A data acquisition and control system is 
designed to perform routine tasks, something which pulse testing generally 
does not involve because from one properly éxecuted pulse test, the 
frequency response characteristics of a process can be obtained. 
Although it often takes more than one pulse test to get a properly 
executed pulse test, the task is far from routine. The routine part of 
pulse testing is the evaluation of the Fourier transforms, something 


which can be readily done on any general purpose digital computer. 


6.5 Future Work 


From the knowledge gained in this work, it appears that further 


study should be considered in the following areas: 
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Spectral smoothing and its usefulness, if any, to pulse testing 
should be evaluated. In addition, other types of filters should 
be applied to the calculated frequency data (Section 6.2.3). 

The problem of an error of closure on the pulse data and the 
usefulness of the error of closure compensation suggested by 
Hougen (1964) should be evaluated (Section 6.2.4). 

The effect of noisy time domain data and the effect of time 
domain smoothing should be studied. 

The effect of the time domain sample interval on the position of 
the amplitude ratio curve should be defined (Sections 6.2.2 and 
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Further study of pulse shapes is warranted. There is a strong 


need for some general guidelines which would help the inexperienced 


person to achieve the ability to conduct successful pulse tests 
quickly. Also, particular combinations of pulse shapes (single 
and double-sided) should be studied. The feasibility of using 
combinations of shapes to obtain frequency information over a 
range of frequencies which is broader than any range which may 
be studied using a single pulse should be investigated. 

Process non-linearities should be studied to determine their 
effect on frequency response information obtained from pulse 
tests. The digital non-linear and linearized models for a 
double pipe heat exchanger, which were derived by Privott (62), 
could be used as a starting point for this work. 

An attempt should be made to use pulse testing to reveal the 


resonance characteristics common to distributed parameter systems 
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such as the double pipe heat exchanger. The work on resonance 
of heat exchangers reported in Chapter II could be used as a 
Stenting point for this work. 

Further study of the three Fourier transform techniques used 

in this work would be valuable. A criterion for the breakdown 
of the trapezoidal technique at higher frequencies should be 
established. The programs used for the Filon's and trapezoidal 
techniques should be modified to allow the use of 2 variable 
integration interval on the tail of the pulse and to allow 
frequency points to be calculated at equal logarithmic increments 
as well as equal linear increments (Section Ones 2% 

Facility should be provided on the DACS to control at a sample 
rate of less than once per second, say ten times per second. 

At the once per second rate used in this work, it was found 
that the flow control was unsatisfactory (Section 6.4) and that 
the ramp shaped pulses exhibited a staircase effect, (Appendix 
Lh) Without the faster sample rate it will be difficult Lo 
eliminate the error of closure on pulse data and to generate 
pulses of different shapes. 

To aid in improving flow control pressure regulators or pulsation, 
dampers should be installed in the water lines to the test heat 
exchanger. 

A linear frequency to voltage converter would simplify the 


measurement of the signal from the flow turbines (Section 5.2.2). 
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NOMENCLATURE 


The nomenclature which appears at only one location in the thesis 


is defined at that point and does not appear in this list. 


MATHEMATICAL SYMBOLS, 


a - general lower limit on integration 

AR() - amplitude ratio 

b - general upper limit on integration 

d - duration of a pulse (sec.) 

e ~ natural logarithm base 

be - function of time (general pulse curve) 

Ff | - indicates Fourier transform operation 

G() =~transter function of process 

i - -] 

Ss - Laplace transform operator 

is = -  time(sec;) 

Aot - sample interval (sec.) 

a - duration of a pulse (sec.) 

W - frequency (rad./sec.) 

X - input pulse variable or subscript implying reference to input 
variable 

y - output variable or subscript implying reference to output 
variable 

ee) - indicates Laplace transform operation 


® () - phase angle 


4 - constant (3.1416) 
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ABBREVIATIONS 


ADC - analog to digital converter 


cos = current output station 

DAC - digital to analog converter 

DACS - data acquisition and control system 
DAR - data acquisition rapid 

DAS - data acquisition slow 

DDC - direct digital control 

FFT - Fast Fourier transform 

FT - results obtained using FFT 

FN - results obtained using Filon's quadrature 
M -~ multiplexer 

MSSS - mainline subroutine service set 

PA - process actuator 

POC - process operators console 

eal - process transmitter 

PVRI - process variable record table 

TB - terminal board 


iy ~ results obtained using the trapezoidal quadrature 
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APPENDIX I 


THEORETICAL PULSE GRAPHS 


General Comments 


as 


oe 


Table I A describes the graphs presented in this appendix in 
the order in which they appear. 

A description of the code tised for labelling the axes of the 
graphs was given in Section 6.1. 

The data presented in these grephs were obtained using the 
techniques outlined in Cyonree IV. 

All input pulses are rectangular in shape and all output pulses 
are derived from the response of a first order system with a time 
constant of 5.0 seconds. 

All input and output pulses are on the same scale to facilitate 
comparisons. 

All frequency content graphs have the same scale on the abscissa 
but not necessarily on the ordinate. 

Alj frequency content curves were calculated using the Fast 
Fourier transform. 

For all runs, the sample interval for the time data was 0.1 
seconds except for run 06 where an interval of 0.2 seconds was 


used. 


The graphs associated with each run are arranged in the following 


order: 
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Ppeeinput pulse 

2. frequency content of input pulse 

3. output pulse 

The runs are arranged in order from the narrowest to the widest 


input pulse. 
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TABLE I A 


LIST OF GRAPHS OF INPUT PULSES, FREQUENCY CONTENT 
AND OUTPUT PULSES FOR THEORETICAL RUNS 


INPUT 
PULSE / 
GRAPH DURATION 
IDENTIFICATION PAGE (SEC) COMMENT 

PTHO1A ea TBs PaO _ Input pulse; rectangular. 

PFTO1C 276 Lad Frequency cauteut curve for input pulse 
PTHOLA. 

PTHO1B 207 FAO Output pulse; response to input pulse 
PTHOIA. 

PTHO2A 213 255 Input pulse; rectangular. 

PFTO2C roy he] 2.5 Frequency content curve for input pulse 
PTHO2A. 

PTHO2B 280 Ze Output pulse; response to input pulse 
PTHO2A. 

PTHOSA | 281 0 Input pulse; rectangular. 

PFTO3C 282 520 Frequency content curve for input pulse 
PTHO3A. 

PTHO3B 283 Dew Output pulse; response to input pulse 
PTHO3A. 

PTHO4A 284 1020 Input pulse; rectangular. 

PFTO4C 285 EO=0 Frequency content curve for input pulse 
PTHO4A. 

PTHO4B 286 1020 Output pulse; response to input pulse 


PTHO4A. 
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TABLE I A (CONT'D) 


LIST OF GRAPHS OF INPUT PULSES, FREQUENCY CONTENT 
AND OUTPUT PULSES FOR THEORETICAL RUNS 


‘INPUT 
PULSE 
GRAPH DURATION 
IDENTLP LCATION PAGE (SEC) COMMENT. 
PTHO5A 287 2550 Input pulse; rectangular. 
PFTO5C 288 25.0 Frequency content curve for input 
pulse PTHO5A. 
PTHO5B 289 Zon 0 Output pulse; response to input 
pulse PTHOS5A. 
PTHO6A 290 1250 Input pulse; rectangular. 
PFTO6C Zo ae oe) Frequency content curve for input 
pulse PTHOGA. 
PTHO6B 292 7220 Output pulse; response to input pulse 


PTHOGA. 
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APPENDIX II 


EXPERIMENTAL’ PULSE GRAPHS 


Genera] Comments 

a. Table II A describes the graphs presented in this appendix in 
the order in which they appear. 

Dy A description of the code used for labelling the axes of the 
graphs was given in Section 6.1. 

ce: The data presented in these graphs was obtained using the techniques 
outlined in Chapter V. 

rane All input pulses are a measure of the test heat exchanger tube 
flow when pulsed from a steady state value of approximately 
eight to a maximum of twelve U.S. gallons per minute. 

e. All output pulses are a measure of the response of the test heat 
exchanger shell outlet temperature to the tube flow pulses 
described in (d) above. 

te All frequency content graphs have the same scale on the abscissa 
but not necessarily on the ordinate. 

ee All frequency content curves were calculated using Filon's 
quadrature except for PFT14C which a determined using the 


Fast Fourier transform. 


ae For all runs, the sample interval for the time data was 0.025 
seconds. 
is The plots associated with each run are arranged in the following 


order: 
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Tae OpUue pulse 

2. frequency content of input pulse 

ye CULDUL pice 

(Note: For run 13 more than one version of the input and output 
pulse is presented.) 

The runs are not arranged in the order of run number, but in 
order of input pulse duration starting with the rectangular 


shape and following with the ramp shape. 
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TABLE Ii A 


LIST OF GRAPHS OF INPUT PULSES, FREQUENCY CONTENT 
AND OUTPUT PULSES FOR EXPERIMENTAL RUNS 


INPUT 
PULSE 
GRAPH DURATION 
IDENTIFICATION PAGE (SEC) COMMENT 

PEX14A 2.99 0 Input pulse; rectangular. 

PFN14C 300 1.0 Frequency content curve for input 
pulse PEX14A. 

PFT14C 301 1.0 Frequency content curve for input 
pulse PEX14A covering a wider 
frequency range than PFNI4C. 

PEX14B 302 LO Output pulse; response to input 

pulse PEXI4A. 

PEXLOA 303 320 Input pulse; rectangular. 

PFN1OC 304 520 Frequency content curve for input 
pulse PEXIOA. 

PEX10B 305 32.0 Output pulse; response to input 
pulse PEX1OA. 

PEX12A 306 6.0 Input pulse; rectangular. 

PFN12C 307 6.0 Frequency content curve for input 
pulse PEX12A. 

PEX12B 308 6.0 Output pulse; response to input 


pulse PEX12A. 


PEX16A 309 6.0 Input pulse; rectangular. 
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TABLE II A (CONT'D) 


LIST OF GRAPHS OF INPUT PULSES, FREQUENCY CONTENT 
AND OUTPUT PULSES FOR EXPERIMENTAL RUNS 


INPUT 
PULSE 
GRAPH DURATION 
IDENTIFICATION PAGE (SEC) COMMENT 

PFNL6C 310 6.0 Frequency content curve for input 
pulse PEX16A. 

PEX16B 311 6.0 Qutput pulse response to input 
pulse PEXI16A. 

PEX11A oe 10.0 ‘Input pulse; rectangular. 

PFNL1C ab Oe 0 Frequency content curve: for input 
pulse PEX11A. 

PEX11B 314 100 Output pulse; response to input 
pulse PEXIIA. 

~ PEXI7A 315 i520 Input pulse; rectangular. 

PFN17C cele: 1320 Frequency content curve for input 
pulse PEXI17A. 

PEX17B oa 15.0 Output pulse; response to input 
pulse PEXI/7A. 

PEX18A 318 6.0 Input shises: Sabet 

PFN18C Sky 6.0 Frequency content curve for input 
pulse PEX18A. 

PEX1 8B 320 GU Output pulse; response to input 


pulse PEXI8A. 
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TABLE II A (CONT'D) 


LIST OF GRAPHS OF INPUT PULSES, FREQUENCY CONTENT 
AND OUTPUT PULSES FOR EXPERIMENTAL RUNS 


————— 


INLET 
PULSE 
GRAPH DURATION 
IDENTIFICATION PAGE (SEC) COMMENT 

PEX13A 321 10.0 Input pulse; ramp. 

PEX131 322 10.0 The same data as plotted PEX13A but 
after third order polynomial smoothing 
has been applied to it three times 
(Sect iocngo. 4.2, 2). 

PEX13C 32S L080 The same data as plotted in PEX13A 
but after it was reduced using but 
subroutine REDPT (Section 5.4.2. 3) 
with selection of aery fourth point. 

PFN13C 324 10.0 Fronneney content curve for input 

pulse PEX13A. 

PEX13B 525 10.0 Output pulse; response to input 
pulse PEX13A. 

PEX13J 326 10:50 The same data as plotted in PEX13B 
after third order polynomial smoothing 
using Gi coaneescnte has been applied 
to it three times (Section 5.4.2.2). 

PEX13D 2a, 10.0 The same data as plotted in PEX13B 


after it was reduced using subroutine 
REDPT (Section 5.4.2.3) with selection 


of every fourth point. 
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TABLE II A (CONT'D) 


LIST OF GRAPHS OF INPUT PULSES, FREQUENCY CONTENT 
AND OUTPUT PULSES FOR EXPERIMENTAL RUNS 


INLET 
PULSE 
GRAPH DURATION 
IDENTIFICATION PAGE (SEC) COMMENT 
PEXI9A 328 1520 Input pulse; ramp. 
PFN19IC 329 15.0 Frequency content curve Pepe input 
pulse PEX19A. 
PEX19B 330 15.0 Output pulse; response to input 
pulse PEXIQ9A. 
PEX20A ssi! ZOn0 Input pulse; ramp. 
PFN20C 332 Z0n0 Frequency content curve for input 
pulse PEX20A. 
PFN20B B33 iDonle, Cutput pulse; response to input 


pulse PEX20A. 
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APPENDIX III 


PROGRAM LISTINGS 


This appendix contains commented listings of all FORTRAN computer 
programs used in this work. A discussion of the use of these programs 
can be found in Sections 4.2 and 5.4. 

The programs appear in the following order where P indicates a 


mainline program and S indicates 2 subroutine: 


1. P-TSTFR 12. P-KLTLY 23. P-BFKTY 
2.  P-WLHBL 13. S=INITL 24, P-BUCKWS 
3.  P-PULSE 14.  S-TNFRM 25. P-PWRSL 
4,  S-TYPWR 15. S-REVER 26. S-NWPLT 
5.  S-TMPRF 16. P-FREQ 27. $-NWLNS 
6.  P-STDAT 17. S-REDPT 28. S-NWMAX 
7. P-SET 18. S-ABCDI 29. S-NWLGS 
8. P-CHIEF 19. S-ABCD2 30. S-LGRID 
9. P-VIFLO 20. S-SUMS 31. S-NWANN 
10. P-MVIMP 21.  S-ARPHF Soe =P LC 
11. P-SMOTH 22. S-ANGLE 33. P-WRITE 
34. P-LINEA 
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APPENDIX=I11 1 
PROGRAM 'TSTEFR! 


PROGRAM 'TSTFR! 


¢ 
C ** PROGRAM TSTFR ** 
¢ 


es Ne mee ts ce eee << om — -_ ae bine cam ies eee ee ee oes Get one eaten EEN OMS ome GENS Gam ene: Glee Gane GOU eum aim cm Gi ame 
— ns He te - _ es ee ee te 


PURPOSE 


TO GENERATE PULSE DATA WHICH IS SUITABLE FOR 
STUDY AND EVALUATION OF FOURTER TRANSFORM 
TECHNIQUES AS APPLIED TO PULSE TESTINGes 

THe FOLLOWING THREE TYPES OF SYSTEMS MAY BE 
ANALYSED USING THEIR RESPONSE TO A SQUARE 
PULSES 


le FIRST ORDER LAGe 


2e CASCADED FIRST ORDER LAGSe 
3e SECOND ORDER SYSTEMe 


PARAMETERS ENTERED VIA CARDS. 


N = NOe OF DATA POINTS GENERATED. 

DT - TIME INCREMENT BETWEEN DATA POINTS 
(SECe)e 

IFLI = NOe OF FILE WHERE INPUT PULSE DATA IS 
STOREDe 
NOs OF FILE WHERE OUTPUT PULSE DATA IS 
STOREDe 

BIAS = = STEADY VALUE BEFORE AND AFTER PULSEe 

RISE = MAGNITUDE OF INPUT PULSE (SQUARE SHAPE) e« 

DUR = DURATION OF INPUT PULSE (SECe) 

TAUL = TIME CONSTANT FOR 
le FIRST ORDER LAG OR 
26 SECOND ORDER SYSTEMs 

TAUZ2 = TIME CONSTANT FOR 2ND LAG OF CASCADED 
LAGSe 

IFORS = = ls 1ST ORDER LAG RESPONSE GENERATEDe 
= 29 CASCADE 1ST ORDER LAG RESPONSE 
GENERATED. , 


= 39 2ND ORDER RESPONSE GENERATEDe 

= NQe OF RECORDS OF STEADY STATE DATA 
GENERATED BEFORE PULSE IS INTRODUCEDe 
NPP = = NOe OF POINTS GENERATED AT STEADY 
STATE «IN THE 4 ISEG+)' "RECORD OBEFPORE 
THE PULSE IS INTRODUCEDe. 


mw 
Ww 
mM 
Oo 
I 


IFLT =- NOs OF FILE WHERE TIME VALUES ARE 
STOREDe. 
GAIN =— THE AMOUNT OF STEADY STATE GAIN ACROSS 


MAA AAAAAAAAAAOADDNAANAANAAANDANAANANAAANNNANAAANOAANAAN 
Bi 
= 
© 
i 


THE SYSTEM PULSED. 
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APPENDIX=III 2 
PROGRAM 'TSTER! 


YNB = IF 'YNB! = 'GAIN' THEN GAIN IS NOT 
APPLIED TO BIASs 
m" IF 'YNB! # 160 THEN GAIN-PS-APPLLED 
TO BIASe 
YINNR ~ IF 'YNR!' = 'GAIN! THEN GAIN IS NOT 
APPLIED TO RISEe 
= IF 'YNR' = 160 THEN GAIN IS APPLIED 
TO RISEe 
DR = THE DAMPING RATIO FOR THE SECOND ORDER 
SYSTEMe 


SOURCE OF EQUATIONS 


BUCKLEY »sPeSes' * TECHNIQUES OF PROCESS CONTROL', 
JOHN WILEY AND SONSsINCes 19649P e506 


**® TABLE OF FUNCTION OF VARIABLE NAMES *% 
V IS A DIMENSIONED VARIABLE IN WHICH EACH RECORD INPUT 
9 OUTPUT AND TIME VALUES ARE SAVED BEFORE STORAGE 
ON DISKe 
NPPR=NUMBER OF POINTS PER RECORD. 
LUR=LOGICAL UNIT NUMBER FOR CARD INPUT. 
LUW=LOGICAL UNIT NUMBER FOR LINE PRINTER OUTPUT. 


DBIAS IS A DUMMY VARIABLE SET EQUAL TO THE BIAS ON 
INPUT e 


DRISE IS A DUMMY VARIABLE SET EQUAL TO THE RISE ON 
INPUT e 


NREC=NUMBER OF RECORDS OF DATA POINTS CREATED. 
T=TIME IN SECONDSe 


IFL=NOe OF FILE WRITTEN INTO = FIRST EQUALS 'IFLI'» 
THEN ‘'IFLO'e 


IORO IS A FLAG INDICATING WHETHER INPUT OR OUTPUT DATA 
1S BEING GENERATED = =1 FOR INPUT» =2 FOR OUTPUT. 


IW=NOe OF RECORD IN FILE WRITE OPERATIONe 


IFLG IS A FLAG CHANGED FROM 1 TO 2 WHEN THE FINAL 
STEADY STATE POINT IS GENERATED IN RECORD 'ISEC+1'. 
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APPENDIX=I1I 3 


PROGRAM 'TSTFR! 


ee awe Gu cont was om a = — cues eee SO ON nee OOS OS a ee a SS ea eS OD 


DEFINE FILE 51(649809UsU0) 952(649809UsU0) » 
153(649809Us40) 954(649809U2N0) 955(649809U9U0) » 
156164980 9UsJ0) 957164580 9Us U0) 958 (64s809Us 0) 

DIMENSION V(40) 

GAIN=1+¢0 

NPPR=40 

LUR=5 

LUW=6 


READ DATA FROM CARDSe 


READ(LUR» 7)NoDTsIFLIsIFLOsBIASsRISE*DUR*TAULSTAUZ» 
LIFORS 

7 FORMAT (15 9F5e3921592F7e3sF60e292F10e59I15) 
READ(LURs500)ISECsNPP9TIFLT sGAINs YNR*YNG 9DR 

500 FORMAT(31594F5e62) 


WRITE OUT DATAs 


WRITE (LUW 98) NeOToIFLIsIFLOsBIASsRISEsDURsTAULsTAU2» 
LIFORS 

8 FORMAT (IXs* NE! so 1S591Xe! DTH! oF S039 Xe IFLI=!sloelxs 
L'IFLOH'91591Xs'BIAS=! oF 7e391X9'RISE=!9F7e391Xs'DUR='» 
LF6e291X9! TAULE! 9F100591X9! TAUZ=! sF1l00591X9'TFORS=! 915) 
WRITE (LUW 9501) ISEC»NPP»GAIN®YNBs YNR9IFLT 9DR 

501 FORMAT (IXs!ISEC='s15e1X9'NPP='91591X9'GAIN=' sFoe2slks 
Siynge! sF5e291Xe! YNR=! oF Se2s'IFLT='9139'DR='sFSe3) 
DBIAS=BIAS 
DRISE=RISE 
NREC=N/NPPR+1 


C SET VARIABLES TO GENERATE INPUT DATAs 


T=0020 

IFL=IFLI 

IORO=1 
45 Iw=l 


GENERATED ISEC RECORDS OF STEADY STATE DATAe 


DO 10 K=1lsISEC 
DO 11 J=lsNPPR 
V(u)=BIAS 

a CONTINUE 
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APPENOIX=I11 
PROGRAM 'TSTFR! 
WRITECIFL'IW) v 
IW=Iw+l 


CONTINUE 
IFLG=1 


GENERATE A FURTHER NPP POINTS AT STEADY STATEs THEN 
INITIATE THE TIME AT START OF PULSEs 


RoecwelSEC+1 

DO 12 IW=KSECsNREC 

DO 14 J=l»sNPPR 

PPViFUG=1) 20920521 

IF (U<NPP) 22922523 

V(J)=BIAS 

GOTO 14 

IFLG=2 

wacsh if TIME IS EQUAL TO DUR. 
IF (T@=DUR) 25926926 


DETERMINE WHETHER INPUT OR OUTPUT DATA IS BEING 
GENERATED (START OF PULSE). 


GOTO( 30931) sIORO 
INPUT DATA 


V(J)=BIAS+RISE 
GOTO 15 


OUTPUT DATA 


DETERMINE IF SYSTEM IS 1ST ORDER LAGs CASCADED 15ST 
ORDER LAGS OR 2ND.ORDER LAGe 


GOTO( 32933944) sIFORS 
FIRST ORDERe 


V( J) HFRISE*(lLemEXP(=T/TAUL) )+BIAS 
GOTO 15 


CASCADED FIRST ORDERe 


V(J)FRISE*(LetTAUL/(TAU2=TAUL) ¥EXP(=T/TAULI=TAU2Z/( TAU2 


l= 
1LTAU1) EXP (=T/TAU2))+BIAS 
GOTO 15 
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APPENDIX=III 5 
PROGRAM 'TSTFR! 


SECOND ORDER.» 
#% 


INITIALIZE PARAMETERS FOR 2ND ORDER. 


aap Sat Ye | 


4 4 W=1eO0/TAUL*(ABS(1.0=DR¥¥200)) #¥0 05 
PHI=ATAN( ( (1e0=DR¥#26)**065)/DR) 
CHI=ATAN( ((1e0™DR¥*20)*#005)/DR) 


C DETERMINE IF 2ND ORDER IS UNDER» CRITICALLY OR OVER 
. DAMPED. 


IF (DR=1e0)60961962 
C UNDER DAMPED. 
60 V(J)=RISE*(1¢0O—1 eO/W/TAUL#EXP (=DR¥T/TAUL) ¥SIN(WHT+PHI ) 
L)+BIAS 
GOTO 15 
(a CRITICALLY DAMPED. 


61 V(JI=SRISE*(160—(10604+T/TAUL) *EXP(=T/TAU1) )+BIAS 
aot? 15 


he OVER DAMPED. 


62 V(JIEFRISE*(1LeO=DR*T/W/TAUL*EXP(=DR*ET/TAU] ) # 
12 e*TANH( (W*T+CHI 1/200) /(1eO0=TANH ( (WeT+CHI) /200)%*#260) ) 


2+BIAS 

GOrTQ 15 
C DETERMINE WHETHER INPUT OR OUTPUT DATA IS BEING 
La GENERATED (END OF PULSE)» 


26 GOTO( 34935) sIORO 
C INPUT DATAe 


34 V(J)=BIAS 
eeTO 15 


OUTPUT DATA 

HK 
DETERMINE IF SYSTEM IS 1ST ORDER LAGs CASCADED 1ST 
ORDER LAGS OR 2ND ORDER LAGs 


EVCVEY &% 


35 GOTO( 36937947) sTFORS 


C FIRST ORDER SYSTEMe 
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APPENDIX=I11I 6 
PROGRAM 'TSTFR! 


36 V(JISRISE#( 1LeEXP(=T/TAUL) =1e+EXP(-(T=DUR) /TAUL) )+BIAS 
GOTO 15 


C CASCADED FIRST ORDER. 


37 VJ) =RISE*(16+TAUL/(TAU2=TAUL) EXP (=T/TAUL) =TAU2 
1/( TAU2=TAUL) EXP (=T/TAU2) =( Le +TAUL/ ( TAU2=TAUL) % 
ZEXP (= (T=DUR)/TAUL) =TAU2/( TAU2=TAUL) ¥EXP (=(T=DUR) /TAU2) 
Se o+G1TAS 
GOTO 15 


SECOND ORDER SYSTEM. 
*% 


DETERMINE IF 2ND ORDER IS UNDER» CRITICALLY OR OVER 
DAMPEDe 


ALVEM 


47 IF (DR=120)63964965 
C OVER DAMPED. 
63 VOCJIERISE*(1Le0—-1leO/W/TAUL*EXP (=DR¥T/TAUL) *SIN( W*T+PHI ) 


L=(1leO-1leO0/W/TAUL*EXP(=DR*(T=DUR) /TAUL) *SIN(W*(T=DUR) 
2°*PHI)))+BIAS 


GOTO 15 

C CRITICALLY DAMPEDe 

64 V(JIFRISE*(1¢0—(160+T/TAUL) *EXP(=-T/TAU1) =(100= 
1(160+(T=DUR)/TAU1) #EXP(-(T=DUR)/TAU1)) )+BIAS 
GOTO 15 

‘ UNDER DAMPEDe. 


S5 V(JJHERISE*#(1e¢0=DR*T/W/TAULFEXP(=DR*¥T/TAUL) * 
LZ2e*TANH( (WHTFCHI) S200) /(LeQV@TANH( (W*¥T+CHI )/200)*#*220)= 
2(10e0—DR*(T=DUR) /W/TAUL*EXP (=DR*(T=DUR) /TAU1 ) #*® 
32 e%*TANH( (W*#(T=DUR) 4CHI) /200)/(1LeO=TANH( (W*(T=DUR) +CHI ) 
4/2e60)**20e0)))+BIAS 

5 T=T+DT 

14 CONTINUE 


C WRITE A RECORD OF DATAe 
WRITECIFL'IW)V 
LZ CONTINUE 


DO 999 I=1lsNREC 
READ(IFL'I)V 
WRITE (LUWs998)V 
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APPENDIX=I11 
PROGRAM 'TSTFR! 


FORMAT (10(1X9F10-5)) 
CONTINUE 


CHECK IF OUTPUT DATA HAS BEEN GENERATED. 


IF (TORO@1)40940 541 


SET PARAMETERS TO GENERATE OUTPUT DATAe 


IORO=2 
BIAS=DBIAS*GAIN/YNB 
RISE=DRISE*GAIN/YNR 
IFL=IFLO 

T=000 

GOTO 45 


GENERATE FILE OF TIME VALUES. 


T=0020 

DO 70 IW=lsNREC 
DO 71 J=lsNPPR 
V(U)=T 

T=T+DT 

CONTINUE 


WRITE A RECORD OF TIME VALUESe 


WRITECIFLT'IW)V 
CONTINUE 

GALI EXIT 

END 
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L11=x1GV399A < 
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APPENDIX=I11 l 
PROGRAM 'WLHBL! 


PROGRAM 'WLHBL! 


DEGrinenmewel ene CFO C1 EL CL OVO AO MOOA CYLON OAH AANAN AN AAO AANAANANAAAH 


— ee ee ee ee ee ~ — 
SS ee ne ney ik eh Ns Mh ta) GS GN te GO fs GETS i Gis GENS me Gees em es aD eee OD mm Se es —ne oe ae ee oe -_ 


PURPOSE 


TO PROVIDE A HEAT BALANCE CALCULATION OF THE 
TEST HEAT EXCHANGER WHILE ON LINE « A CORRECT 
BALANCE INDICATES THE SYSTEM IS AT STEADY STATEe 


PARAMETERS ENTERED VIA KEYBOARD 


ISAMPLE PERIOD = NOe OF SECONDS BETWEEN 
SAMPLES OF PROCESS DATAc 


ITOTAL TIME = TOTAL NOw OF SECONDS OVER WHICH 
DATA IS SAMPLED BEFORE HEAT 
BALANCE IS CALCULATED. 


RESTRICTIONS 


le THE PROGRAM WILL ABORT AUTOMATICALLY IF 
(ITOTAL TIME/ISAMPLE TIME) YZELDS A 
NUMBER GREATER THAN THE NUMBER OF STORAGE 
LOCATIONS PERMITTED FOR THE DATAs AT 
PRESENT THIS IS 206 


** GENERAL COMMENTS ** 


THIS PROGRAM IS AUTOMATICALLY CALLED BEFORE THE 
PROGRAM 'PULSE' TO ALLOW THE OPERATOR TO ASCERTAIN 
THAT STEADY STATE EXISTS BEFORE THE PULSE IS 
INTRODUCEDe ITS INTERFACE WITH ‘PULSE! IS EXPLAINED 
IN THE LISTING OF 'PULSE'e 


** TABLE OF FUNCTION OF VARIABLE NAMES ** 


ee nel cate tet (tons cram cote aint ies ind LAN GO dates tom Glte Gees GMD Mie em GND GED Cems GED Guts Gime Gam mm ene em cone One tee Gime Melth WOE Geen GOED Ge cee aie de One aie im ae Oe moe 


FT=TUBE FLOW (UeSeGALS/MIN)e 
FS=SHELL FLOW (UeSeGALS/MIN)« 


TSI=INLET SHELL TEMPe (DEGREES Fe)e 
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APPENDIX=I1I z 
PROGRAM 'WLHBL! 


TSO=OUTLET SHELL TEMPe(DEGREES Fede 

TTI=INLET TUBE TEMPe(DEGREES Fe)e 

TTOSOUTLET TUBE TEMPe (DEGREES Fe)e 
LUNR=LOGICAL UNIT NUMBER FOR TYPEWRITER INPUTe 


LUNW=LOGICAL UNIT NUMBER FOR TYPEWRITER OUTPUT WHERE 
HEAT BALANCE RESULTS APPEARes 


LUP=LOGICAL UNIT NUMBER FOR TYPEWRITER OUTPUT WHERE 
DATA ENTRY INSTRUCTIONS APPEARe 


IDFT=IeDe OF TUBE FLOW LOOP. 

IDFS=IeDe OF SHELL FLOW LOOP. 
IDTSI=IeDe OF SHELL INLET TEMPe LOOP. 
IDTSO=I1eDe OF SHELL OUTLET TEMPs LOOP. 
IDTTI=IleDe OF TUBE INLET TEMPe LOOP. 
IDTTO=IeDe OF TUBE OUTLET TEMPs LOOP. 
IGET=SAMPLING TIME (SECS) e 

IPRNT=TOTAL TIME (SECS) 


ISAST=START TIME (TAKEN AS THE NUMBER OF SECONDS 
ELAPSED AFTER THE LAST WHOLE HOUR). 


ISCUR=CURRENT TIME IN SECONDS AFTER START. 
AFT=AVGe TUBE FLOWe 

AFS=AVGe SHELL FLOWe 

ATTI=AVGe INLET TUBE TEMPe 

ATTO=AVGe OUTLET TUBE TEMPe 

ATSI=AVGe INLET SHELL TEMPe 


ATSO=AVGe OUTLET SHELL TEMPe 
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APPENDIX=I11 


PROGRAM 'WLHBL! 


EXTERNAL PULSE 


DIMENSION FT (20) sFS(20) sTTI (20) sTTO(20) sTS1(20) 


1sTSO( 20) 
LUNR=1 
LUNW=4 
LUP=2 


DEFINE DATA ACQUISITION LOOP IDENTIFICATION NUMBERSe 


IDFT=273 
IDFS=274 
IOTSI=277 
IDTSO=279 
IDTTI=281 
IDTTO=289 


WRITE OUT DATA ENTRY INSTRUCTIONSe 


WRITE (LUP910) 


FORMAT (10X9' ENTER ISAMPLE PERIODsITOTAL TIME 


CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 


ENTRYe 
CALL FFINP(LUNRs290s9IGETs0sIPRNT »IEROR) 
INITIALIZE TIMEs 


T=0 

CALL TIME (UHOURs IMINsISEC) 
ISAST=IMIN*60+ISEC 
ISRD=ISAST 


CHECK WHETHER NEXT WHOLE HOUR HAS ELAPSED. 


CALL TIME(IHOURs IMINsTISEC) 
IF (IHOUR@=JHOUR) 11912911 
IMIN=IMIN+60 
ISCUR=IMIN*60+ISEC 


CHECK IF IT IS TIME TO SAMPLEe 


IF (ISRD+IGET=ISCUR) 13913914 
ISRD=ISCUR 
i +i 


CHECK IF DIMENSION WILL BE EXCEEDEDe 


2 




































€ LitxTrovs9qa ) 
: ; : ve 
‘JgH4Ww! MARBORA 


32JU9 JAVABT! 


(OS) 12Te LOSIOTTe (OSIITTe(OSere {(OS)TA WOLSWNIMIC 
(0S$)0eT 


[=A 


SesFSMUN NOITADIALTAICL GOOF WOLTIZIUOIA ATA Bv193G 
evSeTaal 
 efse2 e'. 
riSe12Tat 


evs 
Lese1TTat 
ees 


e2WOlTDUAT2MI YATNR ATAG, TUO 3TT 


(OLequs) aTIA 
() 3MIT JATOTIeGOIASS 349MA2L = ABTUS ps: TAMAOF 


ATAG WO TAMAOA 339R3 BVIO OT ANT TUOAEVe wateve J 
Cel OR 


(ARAL e THAGL eOeTRO1e Oe Se ANUS) AMTAD UIAD 
eBMIT BSTJATTIAT 


(a3)eTeniMl «AUOMG? SMBTe > 
2321+08*KIMI =T2ael 
Teael  ¢ 


e0329AJ3 24H AUOH BJOHW. TX3K ABHT ArwW 23 me 


(D32TeVIMI] eAUOHT) SMIT aa 
bia BAsi4 farppetetions sien 
aagy ye (Oa+nI MI SnIME 
2321 +0a"HIMI#FUD2! 
=o) 5T - Bau < ESSTUD. ad ae 7 
; 3u9MAe OT 3MIT eI AIS 
o Geo? . J25He any. anaes 
dLeeLeed ( mated lor u . 
Sed fe mee. 3 a 
; ) vi ae 
ee 


a? 
ea ot pa ? UIVSIVAS 
= ee ee Sk 


ji: 





i 


16 


af 


APPENDIX=I11 
PROGRAM 'WLHBL! 


Teevt=20) 15515550 


CALL SUBROUTINE TO READ APPROPRIATE FLOWS AND 
TEMPERATURES. 


CALL GTVLUCIDFT sleFT( 1) slERRe IF) 
CALL GTVLU(IDFS91lsFS(1)sIERR» IF) 
rete GTVLUCIDTTlesleTTP( lis TERRe 1 PI 
SALE GTVLU(IDTTOslsTTOtl) sIERReIT) 
CALE GTVLUCTDTSIoleTSI(1) »sIERRsIT) 
CALL GTVLU(IDTSOslsTSO(I) sIERRsIT) 


CHECK IF IT IS TIME TO AVERAGE VALUESe 


IF (ITSAST+IPRNT=ISCUR) 16916914 
ISAST=ISCUR 


AVERAGE THE DATA AND CALCULATE THE HEAT BALANCE 


AFT=0¢0 

AFS=060 
ATTI=020 
ATTO=000 
ATSI=0¢e0 
ATSO=040 

DO 17 K#lol 
AFT=AFT+FT(K) 

AF S=AFS+FS(K) 
ATTIB=ATTI*#TTI(K) 
ATTO=ATTO+TTO(K) 
ATSI=ATSI4+TSI(K) 
ATSO=ATSO+TSO(K) 
CONTINUE 
AFT=AFT/I 
AFS=AFS/I 
ATTI=ATTI/I 
ATTO=ATTO/I 
ATSI=ATSI/I 
ATSO=ATSO/I 


CALCULATE HEAT TRANSPORTSe 


QS=AFS#*8 0 337#06998*#(ATSI@ATSO) 
QT=AFT#8 eo 33 7#00998R(ATTOMATTI) 


CALCULATE HEAT TRANSPORT RATIO’ 


RATIO=QS/QT 


Fa 


LIL l=-xIGH299A 
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APPENOIxX=I11 -) 
PROGRAM 'WLHBL! 


WRITE OUT RESULTS 


WRITE (LUNWs18) 

18 FORMAT (/////520X9' HEAT BALANCE RESULTS ') 
WRITE (LUNWs25) 

Se OrORMAT (20X 9! —---—en awn la slaves 1) 
WRITE (LUNW919) AFT 


19 gg Se AVGeTUBE FLOW =! oF5e29!' (UsSeGALS 
/MIN) 


WRITE (LUNWs20)AFS 
20 FORMAT (10X9!' AVGeSHELL FLOW=' oF 5e29!'(UsSeGALS/MIN)!) 
WRITE (LUNW921) ATTIsATTO 
ai FORMAT (//910X9' AVGeTUBE TEMP. (DEGeF) =IN='oFSels 
95Xs'OUT=!' oF 5el1) 
WRITE (LUNW922) ATSIsATSO 
22 FORMAT (10X9!' AVGeSHELL TEMP. (DEGeF)<IN=! 9F50195X 
9'OUT=' »F5el) 
WRITE (LUNW923) RATIO 
23 FORMAT (//910X9' HEAT TRANSPORT RATIO (QS/QT) ='9F603) 


DATA SWITCH OPTION = SEE LISTING OF PROGRAM 'PULSE'.e 


I=0 

CALL DATSW(79IA) 

IF(ITA™1)50950924 
24 CALL DATSW(89LA) 

IF (LA=1)60960914 


QUEUE PULSING PROGRAMe 
60 CALL QUEUE(PULSE 50030) 


50 CALL VIAQ 
END 
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APPENDIX=<III 1 
PROGRAM 'PULSE! 


PROGRAM 'PULSE! 


ee 
A a sm; ck Se SS GR tin Sim SOND tne GND cenmy Senko Gut GORD dinth GENO ANAM) Genes SANS GEinD domme “OOD GENS Jams seem (OND Om UC aeun <OND Gee eens MOOD ence ame emm Gum au Gu 4n 


PURPOSE 


TO INIATE AND CONTROL THE ACQUISITION OF PULSE 
DATA FROM A HEAT EXCHANGE PROCESSe 


PARAMETERS ENTERED VIA KEYBOARD 
THE FOLLOWING PARAMETERS ARE REQUESTED AT THE 


BEGINNING OF THE PULSE RUN WHEN PROGRAM 'WLHBL! 
IS CALLED TO CALCULATE THE ON LINE HEAT BALANCE.s 


ISAMPLE PERIOD = = NOse OF SECONDS BETWEEN 
SAMPLES OF PROCESS DATAs 
ITOTAL TIME ~ =  TOTALANGs SOF eSEGONDS OVER 


WHICH DATA IS SAMPLED BEFORE 
HEAT BALANCE 1S CALCULATED. 


THE FOLLOWING PARAMETERS ARE REQUESTED WHEN THE 
PROGRAM 'PULSE! IS CALLED TO CONTROL PULSE RUNe 


ISASS = NOe OF SECONDS DATA IS ACQUIRED AT 
STEADY STATE BEFORE FLOW: 1S PULSED. 


ISPUL = NOe OF SECONDS OF DURATION FOR FLOW 
PULSE « 


CHGTYP= THERE ARE FOUR POSSIBLE PULSE SHAPES== 

le ‘IF *MAGNITUBDE OF, SCHGUTYP! “TS: EESS ETHAN 
MAGNITUDE OF) "CHGEI' AND 'CHGL2" THE 
PULSE SHAPE IS SQUAREes 

Ze IF MAGNITUDE OF 'CHGTYP' IS GREATER 
THAN MAGNITUDE OF '*CHGL1' AND 'CHGL2! 
THE PULSE SHAPE IS A RAMP AT 
BEGINNING AND ENDe 

30 IF MAGNITUDE OF 'CHGTYP' IS GREATER 
THAN MAGNITUDE OF 'CHGL1! BUT LESS 
THAN 'CHGL2' THE PULSE SHAPE IS A 
RAMP AT BEGINNING AND A STEP AT ENDe 

&e IF MAGNITUDE OF 'CHGTYP! IS GREATER 
THAN 'CHGL1' BUT LESS THAN ‘CHGL2! 
THE PULSE SHAPE IS A STEP AT 


Peeters rt 070 t ee FET CIEE TIOAAN AAA AANA ANRAN ANA AN AANA AO AAA AANOAA AN 
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APPENDIX=ITI 2 
PROGRAM 'PULSE! 


BEGINNING AND A RAMP AT ENDe 
WHEN THE (MAGNITUDE (WOR WICHGLUITEAILS YLESS 
THAN THE MAGNITUDE OF 'CHTYP! ITS 
VALUE REPRESENTS THE AMOUNT OF CHANGE 
THAT WILL BE IMPLEMENTED AFTER EACH 
SECOND AT THE BEGINNING OF PULSEe 
CHGL2 = SIMILAR TO 'CHGL1' BUT APPLYING TO THE 
END OF PULSEe 


CHGL1 


PLVAL = = MAXIMUM VALUE THE CHANGE WILL REACH 
DURING THE PULSE. 
MANUL = = 1 PULSING 1S ACHIEVED BY CHANGING THE 


SETPOINT OF THE CONTROL LOOP PULSED. 
a2 PULSING [S»sACHTIEVEDNAY SPLACING THE 
CONTROL LOOP PULSED ON MANUAL» AND 
THEN CHANGING THE OUTPUT AS REQUIREDe 


THE FOLLOWING PARAMETERS ARE REQUESTED AT THE 
CONCLUSION OF THE PULSE RUN WHEN PROGRAM 'STDAT! 
IS CALLED TO SORT THE ACQUIRED DATAs 


I=LF: = DLSK FLEE NOs WHEREMFLOW DATA IS TO BE 


STOREDe 
IFLT = DODSK FILE NOs WHERE TEMPs DATA 1S TO BE 
STORED. 
MPXF = MULTIPLEXER NOe FOR FLOW MEASUREMENT .e 
MPXT = MULTIPLEXER NOwe FOR TEMPe MEASUREMENT « 


DATA SWITCHES ARE USED AS FOLLOWS== 


SWITCH 7 = ON=ABORT 'WLHBL' 
OFF@=LET 'wWLHBL' CONTEINUE.e 
SWITCH 8 = ON@ABORT 'WLHBL' CALL 'PULSE'e 
- OFF<@LET 'WLHBL' CONTINUEes 
SWITCH 10= ON=BEFORE RUNsCONDUCT A PULSE RUN 
WITHOUT RAPID DATA ACQUISITIONe 
= OFF=CONDUCT PULSE RUN WITH RAPID 
DATA ACQUISITIONe 
SWITCH ll= ON=BEFORE RUN» MAKE OPERABLE 'RING 
BUFFER' LOOPS TO READ AND SAVE 
MEASUREMENTs SETPOINTs ERROR AND 
OUTPUT OF THE CONTROL LOOP PULSED. 
- OFF=DO NOT MAKE 'RING BUFFERS! 
OPERABLE 
SWITCH 13 ON=TURNED ON DURING DATA ACQUISITION 
RUN WILL CAUSE IT TO ABORTe 
~ OFF=NORMAL POSITIONe 


RESTRICTIONS 
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APPENDIX=I1I 3 
PROGRAM 'PULSE! 


le THE PROGRAM 'WLHBL' WILL AUTOMATICALLY 
ABORT IF (ITOTAL TIME/ISAMPLE TIME) YIELDS 
A NUMBER GREATER THAN THE NOe OF STORAGE 
LOCATIONS PERMITTED FOR THE DATAe AT 
PRESENT THIS 1S 20% 


2e THE RAPID DATA ACQUISITION IS PRESENTLY 
FIXED AT 40 POINTS/SECes SAMPLED FOR A 
PERIOD OF 40 SECONDS. 


3e THE SIGN OF PARAMETERS 'CGTYP'»s 'CHGL1'! 
AND 'CHGL2' MUST ALWAYS BE THE SAME. 


4e THE PROGRAM 'STDAT! WILL AUTOMATICALLY BE 
CALLED IN IF DATASWITCH 10 OR 13 ARE NOT 
TURNED ON AS SPECIFIED ABOVE. 


DACS CENTRE SUBROUTINES CALLED BY PROGRAMS 
"WLHBL's 'PULSE' AND 'STDAT' ARE== 
FFINPs GTVLU»s PTVLUs EBBIN» OPER» MMANL» 
DATSWs TIMEs VCDAQs MAUTOs ABORT» TUCDQs 
FLSRT e 


*##* GENERAL COMMENTS ** 
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THE PROGRAM 'PULSE' WAS ORIGINALLY WRITTEN TO 
INTRODUCE THE PULSE VIA SETPOINT CHANGESe 
DEVELOPMENTS LED TO THE PULSING BY OUTPUT CHANGES» 
HOWEVER THE CODING WAS NOT CHANGED SIGNIFICANTLY» SO 
FOR THIS REASON THERE I[S A DIFFERENCE BETWEEN THE 
NAMES OF THE VARIABLES REQUESTED ON THE KEYBOARD AND 
THE NAMES USED IN THE PROGRAMe 


*#* TABLE OF FUNCTION OF VARIABLE NAMES ** 


VARIABLES IN THE SUBROUTINE ARGUMENT LISTS WHICH ARE 
NOT EXPLAINED IN THIS LISTING ARE COVERED IN THAT 
OF THE APPROPRIATE SUBROUTINE® 


IIII IS A VARIABLE REREQUIRED BY THE RAPID DATA 
ACQUISITION PROGRAMe 


ID IS A DIMENSIONED VARIABLE INTO WHICH LOOP 
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APPENDIX=III 
PROGRAM 'PULSE! 


IDENTIFICATION NUMBERS ARE READ IN HEXADECIMAL FORM 
UNDER A2 FORMAT 


LUR=LOGICAL UNIT NO«w FOR TYPEWRITER INPUTs 
LUW=LOGICAL UNIT NOw FOR TYPEWRITER OUTPUT. 


LOOP=NOs OF SECONDS WAITED AT THE END OF THE PULSE 


BEFORE THE CONTROL LOOP IS RETURNED TO AUTOMATIC 
MODE es 


IDM=ID NOe FOR RING BUFFER STORING 'MEASUREMENT! OF 
PULSED LOOP. 


IDS=I1D NOe FOR RING BUFFER STORING 'SETPOINT! OF 
PULSED LOOP. 


IDE=ID NOe FOR RING BUFFER STORING 'ERROR! OF 
PULSED LOOP. 


TIDO=ID NOe FOR RING BUFFER STORING "OUTPUT! OF 
PULSED LOOP. 


IPLAG IS A FLAG WHICH IS CONTINUOUSLY CHECKED BY 
SYSTEM RAPID DATA ACQUISITION PROGRAMe WHEN THIS 
FLAG IS SET TO A NON ZERO VALUE RAPID DATA 
ACQUISITION BEGINS IMMEDIATELY. 


IEXIT=ERROR PARAMETER RETURNED ON CALL OF 'GTVLU! IN 


SUBROUTINE 'TMPRF'.e 


IDP=ID NOe OF THE CONTROL LOOP PULSED WRITTEN IN 
HEXADECIMAL FORMe 


IDl=ID NOe OF THE CONTROL LOOP PULSED WRITTEN IN 
BINARY FORMe 


4 


ID2=ID NOe OF LOOP READING REFERENCE BATH TEMPERATURE 


WRITTEN IN BINARY FORMe 

JOP=1 OR 2 IF DATA SWITCH 11 IS ON OR OF Fe 

JT=1 OR 2 IF DATA SWITCH 10 IS OR OR OF Fe 
JHOUR=TIME OF DAY IN HOURS AT START OF PULSE RUNe 


IMINZINITIALLY TIME OF DAY IN MINUTES AT START OF 
PULSE RUN = CONTINUALLY UPDATED DURING RUNe 


ISEC=INITIALLY TIME OF DAY IN SECONDS AT START OF 
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APPENDIX=I1I1 5 
PROGRAM 'PULSE! 


PULSE RUN = CONTINUALLY UPDATED DURING RUNe 


KSEC AT FIRST =THE TIME WHEN THE PULSE WILL BE 
INTRODUCED IN TOTAL SECONDS AFTER THE HOUR. LATER 
=TIME WHEN PULSE WILL BE DELETED. 


IkK=2 ROUTINES 'GTVLU' AND 'PTVLU' WORK WITH SETPOINTs 
=3 WITH OUTPUT. 


SPT=VALUE OF SETPOINT OR OUTPUT (ENGINEERING UNITS) 
OBTAINED BY 'GTVLU'. 


TERR=ERROR PARAMETER ON CALL OF 'GTVLU' OR 'PTVLU'. 
IF 'IERR' IS GREATER THAN 1 ON MORE THAN THREE 
SUCESSIVE CALLS THEN PROGRAM EXITSe 


LU=DUMMY VARIABLE REPRESENTING CODED VALUE FOR THE 
ENGINEERING UNITS RETURNED BY GET VALUE. 


IHOUR=TIME OF DAY IN HOURS AFTER THE START OF THE 
PULSE RUN = CONTINUALLY UPDATED DURING RUNe 


LSEC=TOTAL TIME AFTER THE HOUR IN SECONDS = 
CONTINUALLY UPDATEDe 


Mees=TOTAL TIME AFTER THE HOUR IN SECONDS = 
CONTINUALLY UPDATEDe USED IN GENERATION OF RAMP 
CHANGES EVERY SECONDe 


SPCR=VALUE OF SETPOINT OR OUTPUT (ENGINEERING UNITS) 
ENTERED WITH 'PTVLU!' EACH TIME AN INCREMENT IN THE 
RAMP IS REQUIRED. 


ISEC2=TIME OF DAY IN SECONDS = CONTINUALLY UPDATED = 
WSED TO CHECK FOR LAPSE OF ONE SECOND PERIODS, 


IOPER IS A PARAMETER SET TO 2 WHEN RAPID DATA 
ACQUISITION IS COMPLETEes 


ee A eres I ee EE i es as a 


EXTERNAL STDAT 
DIMENSION ID(2) 
COMMON III1(376) 


SET PARAMETERS 


c 


eTHITOSTS2 KHTIW YAOW "UJVTS! GWA *UJVTO?® 231 TUOR 
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APPENDIX=III 6 
PROGRAM 'PULSE! 

LUR=1 

IEXIT=1 

IDO0=0107 

IDM=0108 

IDS=0109 

IDE=0110 

Loop=3 


IFLAG=0 
IDP=0111 


CALL SUBROUTINE TO WRITE OUT DATA ENTRY INSTRUCTIONSe 


IDK=1 
CALL TYPWR(IDKsKKsTERRsIDsAA) 


CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
ENTRY 


CALL FFINP(LUR97 s0sITSASSs0sISPULslsSPTI slsSPCLlols 
1SPCL2919SPCSs0sMANULsIEROR) 


CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
ENTRY e 


CALL FFINP(LURs1s22sIDsTEROR) 
CALL SUBROUTINE TO CONVERT HEXADECIMAL TO BINARYe 
CALL EBBIN(IDsID1) 


CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
ENTRY e 


CALL FFINP(LURs1922sITDsTEROR) 

CALL SUBROUTINE TO CONVERT HEXADECIMAL TO BINARY e 
CALL EBBIN(IDsID2) 

START RING BUFFERS WITH SWITCH 11 ONe 


CALL DATSW(11sJ0P) 
IF ( YOP=1)1089108%109 


CALL SUBROUTINE TO MAKE 'OPERABLE' THE 'RING BUFFERS' 
WHICH SAVE THE MEASUREMENT» SETPOINTs ERROR AND 
OUTPUT OF PULSED LOOP. 


CALL OPER(IDM) 
CALL OPER(IDS) 
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APPENDIX=ITI1 
PROGRAM 'PULSE! 


CALL OPER(IDE) 
CALL OPER(IDO) 


CALL SUBROUTINE TO READ AN AVERAGE VALUE OF THE 
MILLIVOLTS GENERATED BY THE REFERENCE THERMOCOUPLE 
IN THE THERMOPILE REFERENCE BATHe 


CALL TMPRF(ID2sRTMV1sIFLAG sIEXIT) 
PRI EALT@='1) 107 91075104 


TEST RUN WITH DATA SWITCH 10 ONe 


CALL DATSW(10s UT) 
IF (UT@=1)10091003101 


INITIALIZE RAPID DATA ACQUISITION PROGRAMe IT WILL 
IDLE AT THIS STAGE BECAUSE 'IFLAG=0'. 


CALL VCDAQ(IFLAG) 

INITIALIZE TIME. 

CALL TIME (JHOURsIMINsISEC) 

SET TIME WHEN PULSE WILL BE INTRODUCED. 
KSEC=ISASS+IMIN#604+ISEC 


Prece IFoPULSE IS TO BE INTRODUCED VIA SETPOINT 
OR OUTPUTe 


IF (MANUL@1) 20192019202 
VIA OUTPUT. 


IK=3 
GOTO 203 


VIA SETPOINTe 


IK=2 
IDK=2 
KK=0 


CALL SUBROUTINE TO GET THE VALUE OF THE SETPOINT 
OR OUTPUT. 


CALL GTVLU(ID1lsIK»SPTsTIERR oLU) 


CALL SUBROUTINE TO WRITE OUT ERROR ON GETTINGs IF 
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APPENDIX=III 
PROGRAM 'PULSE! 


ANY e 


CALL TYPWR(IDK sKKsTERRsIDsAA) 

IF (KK=4)709719104 

IDK=3 

CALL SUBROUTINE TO WRITE OUT VALUE OBTAINEDe 


CALL TYPWR(IDKsKKsIERRsIDsSPT) 
IDK=4 


CALL SUBROUTINE TO WRITE OUT VALUE PROPOSED FOR 
PULSE. 


CALL TYPWR(IDKsKKsTIERRsIDsSPCS) 
TEST RUN WITH DATA SWITCH 10 ONe 


CALL DATSW(109uT) 
IF (UT@1) 349345103 


SET FLAG TO START RAPID DATA ACQUISITION IMMEDIATELY. 


IFLAG=2 

CHECK IF IT IS TIME TO PULSE FLOWe 
CALL TIME (THOURsIMINsISEC) 

IF ( THOUR@JHOUR ) 33 932933 
IMIN=IMIN+60 

LSEC=IMIN*60+ISEC 

IF (LSEC=KSEC) 345935935 

PULSE FLOWe 

NSEC=LSEC 


Beeem af PULSE 1S TO BE INTRODUCED VIA SETPOINT 
OR OUTPUT. 


IF (MANUL=1) 30193019302 


CALL SUBROUTINE TO PUT PULSED CONTROL LOOP ON MANUAL e 


CALL MMANL(IDP) 


SET TIME WHEN PULSE WILL BE DELETED. 


KSEC=KSEC+ISPUL 
IDK=5 
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APPENDIX=III 9 
PROGRAM 'PULSE! 


KK=0 

DETERMINE IF THE BEGINNING OF PULSE IS A STEP OR RAMPe 
IF (ABS(SPTI)=ABS(SPCL1))60960 61 

STEP AT BEGINNINGe 


CALL SUBROUTINE TO ENTER CHANGE IN SETPOINT OR 
OUTPUT (STEP BEGINNING) 


CALL PTVLU(ID1sIKsSPCSsIERR) 
SET 'SPCR'="SPCS' IN CASE OF RAMP AT ENDe 
SPCR=SPCS 


CALL SUBROUTINE TO WRITE OUT ERROR ON ENTERING» 
IF ANYe 


CALL TYPWR(IDKsKKs TERR» IDsAA) 
IF (KK"4)609629104 


RAMP BEGINNINGs 


CALCULATE FIRST VALUE TO ENTER FOR RAMP BEGINNINGe 
SPCR=SPT+SPCL1 


CALL SUBROUTINE TO ENTER SMALL CHANGE IN SETPOINT OR 
OUTPUT EQUAL TO 'SPCL1' (RAMP BEGINNINGS) .« 


CALL PTVLU(ID1sIK»SPCReTIERR) 


CALL SUBROUTINE TO WRITE OUT ERROR ON ENTERINGs IF 
ANY e 


CALL TYPWRI(IDKsKKasTERRsITDsAA) 
IF (KK=4) 789639104 


CHECK IF VALUE ENTERED IS EQUAL TO MAXIMUM VALUE 
SPECIFIED (NOTE== PLVAL=SPCS) 

CHECK IF CHANGE IS +VE OR “VEe 

IF (SPT1)64964965 


NEGATIVE CHANGE e 
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APPENDIX=III 20 
PROGRAM 'PULSE! 
IF (SPCR@=SPCS) 629625966 
POSTIIVE CHANGE. 


IF (SPCR=SPCS) 66 362962 


CALCULATE NEXT VALUE TO ENTER FOR RAMP BEGINNINGe 


SPCR=SPCR+SPCL1 
KK=0 


DETERMINE IF ONE SECOND HAS ELAPSED OR IF IT IS TIME 
TO END THE FLOW PULSE (RAMP). 


CALL TIME(IHOURsIMINsISEC) 

IF ( THOUR@JHOUR) 37936937 

IMIN=IMIN+60 

LSEC=IMIN*60+ISEC 

CHECK IF PULSE DURATION HAS ELAPSED. 
IF (LSEC@KSEC) 38939939 

CHECK IF ONE SECOND HAS ELAPSED. 

IF (NSEC=LSEC) 68 969969 


NSEC=LSEC 
GOTO 78 


Geeck PF 17 -1S TIME TO END FLOW PULSE STEP 
BEGINNING OR RAMP BEGINNING AFTER RAMP HAS REACHED 
THE MAXIMUM VALUE@=PLVAL) 


CALL TIME(IHOURsIMIN»sISEC) 

IF (THOUR@JHOUR) 77976977 

IMIN=IMIN+60 

LSEC=IMIN*604+ISEC 

IF (LSEC@KSEC) 62939939 

DETERMINE IF THE END OF THE PULSE IS A STEP OR A RAMPe 
IF (ABS(SPTI)=ABS(SPCL2) )80980 81 

STEP AT ENDe 


CALL SUBROUTINE TO ENTER THE ORIGINAL VALUE OF 
SETPOINT OR OUTPUT. 


CALL PTVLU(ID1sIKsSPT»TIERR) 
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APPENDIX=IIT. 12 
PROGRAM 'PULSE! 


nethnty SUBROUTINE TO WRITE OUT ERROR ON ENTERINGs IF 


CALL TYPWR(IDKsKK es TERR» IDsAA) 
IF (KK=4)809825104 


RAMP AT ENDe 


SET THE MAXIMUM VALUE SPECIFIED EQUAL TO MAXIMUM 
VALUE REACHED BY RAMP OR STEP AT BEGINNINGe 


SPCS=SPCR 
CALCULATE FIRST VALUE TO ENTER FOR RAMP AT ENDe 


SPCR=SPCS=SPCL2 
KK=0 


CALL SUBROUTINE TO ENTER SMALL CHANGE IN SETPOINT OR 
OUTPUT EQUAL TO 'SPCL2' (RAMP END). 


CALL PTVLU(IDIsIKsSPCRsTERR) 


CALL SUBROUTINE TO WRITE OUT ERROR ON ENTERING? 
IF ANYe 


CALL TYPWR(IIDKsKKsTIERRsIDsAA) 
IF (KK=4)889209104 


CHECK IF VALUE ENTERED IS EQUAL TO OR HAS OVERSHOT 
THE ORIGINAL VALUEs 


GHECK IF CHANGE IS +VE OR =VEe 
IF (SPT1I)84984955 

POSITIVE CHANGEes 

IF (SPCR=SPT)86986987 

NEGATIVE CHANGE e 

IF (SPCR=SPT)87986986 


CALCULATE NEXT VALUE TO ENTER FOR RAMP AT ENDe 


SPCR=SPCR@SPCL2 
KK=0 


CHECK IF ONE SECOND HAS ELAPSEDe 


oe 
van 7 
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APPENDIX-Ii7i dz 


PROGRAM 'PULSE! 
CALL TIME (IHOURsIMINsISEC2) 
IF (ISEC2=1SEC)95994595 
fore 1 SEC2 
GOTO 8&8 
KK=0 
CALL SUBROUTINE TO ENTER ORIGINAL VALUE OF SETPOINT 


OR OUTPUT WHEN THE RAMP AT THE END EQUALS OR 
OVERSHOOTS THIS VALUE > 


CALL PTVLU(IDlsIKsSPTsIERR) 


CALL SUBROUTINE TO WRITE OUT ERROR ON ENTERING» 
IF ANYe 


CALL TYPWR(IDKsKKsTERR»oIDsAA) 
IF (KK=4)879825104 


IF PULSING VIA OUTPUT CHANGEs WAIT FOR 'LOOP! SECONDS 
BEFORE RETURNING PULSED LOOP TO AUTOMATIC CONTROL. 


IF (MANUL@1) 20492049205 

DO 220 I=1sLOOP 

CALL TIME(IHOUR®sIMINsISEC2) 
Per toeG2=1SEC)2183219%218 
ISEC=ISEC2 

CONTINUE 


CALL SUBROUTINE TO PLACE PULSED CONTROL LOOP ON 
AUTOMATIC. 


CALL MAUTOC(IDP) 

DETERMINE IF RUN IS TO BE MANUALLY ABORTED. 
CALL DATSW(139UA) 

ABORT RUN WITH DATA SWITCH 13 ONe 

IF (JAT1)46946945 

CALL SUBROUTINE TO ABORT RUNe 

CALL ABORT 


CALL SUBROUTINE TO TEST WHETHER RAPID DATA 
ACQUISITION HAS STOPPED AFTER 'ABORT' IS CALLED. 


CALL TVCDQ(IOPER) 
IF ( 1TOPER=1) 469469104 
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APPENDIX=1721 13 
PROGRAM 'PULSE! 


TEST RUN WITH DATA SWITCH 10 ONeo 


CALL DATSW(109uUT) 
IF (UT"=1)10491045105 


CALL SUBROUTINE TO TEST WHETHER RAPID DATA 
ACQUISITION HAS COMPLETED ITS RUNe 


CALL TVCDQ(IOPER) 
PP CIOPER@1) 82982551 


CALL SUBROUTINE TO READ AN AVERAGE VALUE OF THE 
MILLIVOLTS GENERATED BY THE REFERENCE THERMOCOUPLE 
IN THE THERMOPILE REFERENCE BATHs 


CALL TMPRF(ID2sRTMV1sITFLAGsIEXIT) 
IF(TEXIT=1)10691069104 


CALL CHAIN TO PROGRAM 'STDAT! TO SORT ACQUIRED DATA 
AND PLACE IT IN PERMANENT FILES 


CALL CHAIN(STDAT ) 
CALL VIAQ 
END 
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APPENDIX=III 1 
SUBROUTINE 'TYpPwR' 


SUBROUTINE 'TYPWR! 


CHR IE HH HH IH IE FEM HEHE IE IE HH IE AEE HEE HEE TE IE HE BEE SE HE HE HEI HE HIE HE IE HEHEHE SE IE HE HEHE HEH 


C ** SUBROUTINE TYPWR ** 
CEH IE KE EE HIE IE IE HE IE HE HE FEIT HI HE EH IESE IE HE IE HE HE HE HE IEE SE IESE HE IE IE IE IE HE HE SE HE HE IE HE SE HE 96 IEE HE 


SUBROUTINE 'TYPWR' CONSISTS OF A COMPUTED GOTO 
STATEMENT AND A GROUP OF WRITE STATEMENTSe 


** GENERAL COMMENTS ** 
HEREIN HEH 


THE WRITE STATEMENTS IN THIS SUBROUTINE COULD HAVE 
BEEN INCLUDED IN THE MAINLINE OF 'PULSE's»s HOWEVER 

THE SUBROUTINE WAS WRITTEN IN CASE LIMITED CORE SPACE 
REQUIRED ALL WRITE OPERATIONS TO BE PLACED IN A 
EOCALED SUBROUTINEe TO ACHIVE ITS* PURPOSE ALL 

WRITE OPERATIONS NOW IN 'PULSE' AND 'TMPRF!' WOULD 
HAVE TO BE PLACED IN THIS SUBROUTINE SO IT WOULD 

Meo, Be CALLED BY 'PULSE'.s SINCE CORE SPACE WAS 
SUFFICIENT THIS WAS NOT DONEes 


*#* TABLE OF FUNCTION OF VARIABLE NAMES ** 
He HEME IE TE HE HE HE IE IE FE IE IE HE IE IE IE HE FE IE IE FE IE SE IE IE IE IE NESE IE HEHE HEHE HE IE HE IE IE HEE IE HE IE IE SEE SE TE IE TE HE HE HE HE 


OCC EE ELOY 07-08 OC CY. CV ES FEO OO OF Oe 


VARIABLES IN COMMON AND IN THE ARGUMENT LIST WHICH 
ARE NOT DESCRIBED IN THIS LISTING ARE DESCRIBED IN 
THAT OF THE MAINLINE 


LUW=LOGICAL UNIT NOw FOR TYPEWRITER OUTPUT. 


IDK=FLAG SET IN MAINLINE TO CALL SPECIFIC WRITE 
STATEMENT e 


KK IS A PARAMETER SET TO ZERO BEFORE EACH CALL 
INVOLVING 'GTVLU' OR 'PTVLU's IF THE ERROR 
PARAMETER 'IERR!' RETURNED BY THESE ROUTINES IS OTHER 
THAN ls THEN KK IS INCREASED BY 1 AND THE CALL TO 
'PTVLU!' OR 'GTVLU! IS REPEATEDe IF THIS HAPPENS 

3 TIMES KK IS SET TO 5 AND ON THE RETURN ‘PULSE! 
EXI1TSe IF 'IERR' EQUALS 1 AT ANY TIME KK [S SELSES 
4 AND 'PULSE! CONTINUES ON THE RETURNe 


IERR=ERROR PARAMETER RETURNED BY SUBROUTINES 'PTVLU! 
AND 'GTVLU'e 


ID 1S A DUMMY INTEGER VARIABLE WHICH CAN 
BE TRANSFERRED FOR WRITING OUT INTEGER VALUESe 
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APPENDIX=I1I 2 
SUBROUTINE 'TYPwR! 


AA 1S A DUMMY REAL VARIABLE WHICH CAN 
BE TRANSFERRED FOR WRITING OUT REAL VALUESe 


HHH HHH HEH KH IIH HK HK HEE FE TE HE IE ME HEE IE GE IEE IE IE IE HE IE IE IE FE IESE HE SE IEE IE IE FE GE IE ESE IE HE EEE HH 


SUBROUTINE TYPWR(IDKsKKsIERRsIDsAA) 
LUW=2 

GOTO(219223235924825) sIDK 

WRITE OUT DATA ENTRY INSTRUCTIONS. 


21 WRITE (LUWs1) 


1 FORMAT ('ENTERs ISASS9TSPUL sCGTYPsCHGLI»sCHGL2»PLVALs'» 
Sean “=-=—"PUSH EOF!) 
WRITE (LUWs2) 

2 PORMATI* THEN TYPE IN THE [TO OF FLOW AND REF BATH "5 
P'EWORS RESP. “—— PUSH EOF FOR EACH. ') 
GOTO 50 


CHECK THE ERROR ON 'GTVLU' AND WRITE OUT PARAMETER 
VALUE IF NECESSARYe 


22 PPATERR@1)59596 

6 KK=KK+1 
WRITE(LUW 9100) TERR»KK 

100 FORMAT('ERROR GETTING=!'9139'NOe TRY='913) 
IF (KK=3)50s 71971 


71 KK=5 
GOTO 50 

5 KK=4 
GOTO 50 


WRITE OUT THE SETPOINT OR OUTPUT USED BEFORE PULSE. 


23 WRITE (LUWs101)AA 

101 FORMAT('OLD VALUE=! »F10e5) 
GOTO 50 

24 WRITE(LUW9102)AA 


WRITE OUT THE SETPOINT OR OUTPUT USED DURING PULSEe 


102 FORMAT('NEW VALUE=! 9F10¢5) 
GOTO 50 


CHECK THE ERROR ON 'PTVLU! AND WRITE OUT PARAMETER 
VALUE IF NECESSARYe 
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SUBROUTINE 'TyYPwR' 


PerLreRR= 1) 79798 

KK=KK+1 

WRITE (LUW9103) IERRo kk 

FORMAT ('ERROR PUTTING=!9I39'TRY=' 913) 
Poems) 5097197 1 

KK =4 

RETURN 

END 
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APPENDIX=III 1 
SUBROUTINE 'TMPRE! 


SUBROUTINE 'TMPRF! 


CHAK AHHH KH HIE HH HEH TE HIE EE IE IE IESE IE IE HE SE IE IE IE IE IE GE SE IESE FE IE IE IE SE SE SE BE 96 SE BE IE 4B 2H 2K 


C 


*#* SUBROUTINE TMPRF ** 


CH HER EK A IK HEH IK HEHE KH HE HEHE ME TE IE HE HE IE IE HE HE BE IE IEE IE IEE HE IEE HE HE IE IE SESE IE SE SE IE 3K 96 2 HE ME 


= 





Meine Oy OF 6) CF TX FAVE OANA ANOANRNNAAANANAAAAONAANAAAANM 


SUBROUTINE 'TMPRF' READS AT 1 SECOND INTERVALS FOR 5 
SECONDS THE MILLIVOLTAGE GENERATED BY THE REFERENCE 
THERMOCOUPLE IN THE THERMOPILE REFERENCE BATHe TZ. 
THEN AVERAGES THESE VALUES» CALCULATES COLD JUNCTION 
COMPENSATION AND WRITES OUT THE CHROMEL=CONSTANTAN 
MILLIVOLTAGE EQUIVALENT TO THE TEMPERATURE IN THE 
BATHe 


ae TABLE OF FUNCTION OF VARIABLE NAMES **# 


HEH ME TE HE TE HE HE IE HE SE ENE HEHE HE IEE SE ESE IESE FE IE HE IE IE SESE SE SEE SE 26 FE SE E96 5E 56 2K SE SE SE IE SE 56 96 36 26 36 58 96 56 


VARIABLES IN COMMON AND IN THE ARGUMENT LIST WHICH 
eee NS) DESCRIBED IN THIS LISTING ARE DESCRIBED IN 
THAT OF THE MAINLINE®s 


LUW=LOGICAL UNIT NOe FOR TYPEWRITER OUTPUT. 


LRBT=ID OF LOOP READING THE RESISTANCE BULB 
THERMOMETER ASSOCIATED WITH THE 1800 SYSTEM COLD 
JUNCTION REFERENCEe 


LREF=ID OF LOOP (DECIMAL FORM) READING THE REFERENCE 
VOLTAGE SIGNAL ASSOCIATED WITH THE RESISTANCE BULB 
THERMOMETER e 


ID2=ID OF LOOP (DECIMAL FORM) READING THE REFERENCE 
THERMOCOUPLE LOCATED IN THE THERMOPILE REFERENCE BATHe 


IFLAG=0 BEFORE RAPID DATA ACQUISITION RUNe 
=2 AFTER RAPID DATA ACQUISITION RUNes 


IEXIT=1 = NO ERROR ON GETTING VALUES USING 'GTVLU'. 
IEXIT=2 OR MORE ERROR OCCURRED ON GETTING VALUEs 
WRITE OUT ERROR PARAMETER AND RETURN TO MAINLINE TO 
EXIT FROM PROGRAMe 


RTMVL=CORRECTED MILLIVOLTAGE GENERATED BY THE 
REFERENCE THERMOCOUPLEe THIS VALUE CORRESPONDS TO 
THE REFERENCE BATH TEMPERATURE AS GIVEN BY 
CHROMEL=CONSTANTAN THERMOCOUPLE TABLEs 


VVOLT IS A DIMENSIONED VARIABLE IN WHICH ie) 
MILLIVOLTAGE READ FROM 'I1D2!' IS STOREDe 


ey Bae 
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APPENDIX=III 2 
SUBROUTINE 'TMPRE! 


RBT IS A DIMENSIONED VARTABLE IN WHICH THE VOLTAGE 
READ FROM 'LRBT' IS STORED. 


REF IS A DIMENSIONED VARIABLE IN WHICH THE REFERENCE 
VOLTAGE READ FROM 'LREF' IS STORED. 


LK 1S A COUNTER WHICH IS INCREMENTED EVERYTIME AN 
ERROR IS ENCOUNTERED ON GETTING A VALUE WITH '!GTVLU'. 


WHEN LK=3 THE SUBROUTINE RETURNS AND THE PROGRAM 
EXITSe 


THOUR IS THE TIME OF DAY IN HOURS. 
IMIN ITS THE TIME OF DAY IN MINUTES. 


femeea=tiMe OF DAY IN SECONDS THE LAST TIME THE 
SECONDS INCREMENTEDe 


ISEC2=PRESENT TIME OF DAY IN SECONDS. 
ITERR=ERROR PARAMETER ON CALL FOR 'GTVLU'e 


VRBT=THE AVERAGE VALUE OF THE RESISTANCE BULB 
THERMOMETER READINGe 


VREF=THE AVERAGE VALUE OF THE REFERENCE VOLTAGE. 


VOLT=AVERAGE VALUE OF THE MILLIVOLTAGE READ FROM 
THE REFERENCE THERMOCOUPLE« 


TR=SYSTEM REFERENCE COLD JUNCTION BOX TEMPERATURE 
IN DEGREES Fe 


VCOR=MILLIVOLTAGE CORRECTION THAT IS TO BE ADDED 
FOR THERMOCOUPLE COLD JUNCTION COMPENSATIONes 


3696 36 3b IE IE IE IE FE FE 9 IE IE 3G IE IE SE FE IE IE IE IE HE SE FE IE FE IE HEHE TE HE IE HE HE FE HE HE FETE HEHEHE HE HE HE HEE EK EE HE HEH IE IE 


AAOAFTANMAAAN AANA AANAHHOHADNHNANGONHAONnROANDANnHNHAAAHAHOAM 


SUBROUTINE TMPRF(ID29RTMVIsIFLAGsTEXIT) 
DIMENSION VVOLT(5) »RBT(5) sREF (5) 


* INITIALIZE PARAMETERS» 


LUW=2 
LRBT=392 
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APPEND IX@ i111 
SUBROUTINE 'TMPRF! 


mers 39 3 
LK=0 


RECORD THE STARTING TIME 


CALL TIME (IHOUR »IMIN®ISEC1) 
DO 10 121595 


GET THE MEASUREMENT OF LOOPS LRBT» LREF» ID2 EVERY 
Reese. ND FOR S SECONDS. 


CALL TIME (THOUR»sIMINsISEC2) 
SHGGR TIME 1TO SEE IF 1 SECOND HAS. ELAPSEDs 


PP UPSECI“1SEC2)62564562 
PSEC LRITSEC2 


CALL SUBROUTINE TO GET RESISTANCE BULB VOLTAGE. 
CALL GTVLU(LRBTs1sRBT(I) sIERR SLU) 

CHECK FOR ERROR ON GETTING RESISTANCE BULB VOLTAGEe 
TPtLERR=1 139394 

LK=LK+1 

WRITE(LUWs100) IERR»LK 


FORMAT('ERROR RBT=!sI3e'TRY NOH! 913) 
IF(LK=3) 20975975 


IEXIT=2 
SOTO 72 
LK=0 


CALL SUBROUTINE TO GET REFERENCE VOLTAGE6s 
CALL GTVLU(LREFs1lsREF(I) sTERR»LU) 


CHECK FOR ERROR ON GETTING REFERENCE VOLTAGEs 


FFLIERR<1) 59596 

LK=LK+1 

WRITE(LUWs101) IERR»sLK 
FORMAT('ERROR REF#!'sI39'TRY NO='s13) 
LEVIS). Zl 975975 

LK=0 


CALL SUBROUTINE TO GET REFERENCE THERMOCOUPLE 
MILLIVOLTAGEe 


CALL GTVLU(ID291lsVVOLT(1) sIERRsLU) 
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APPENDIX=I11 
SUBROUTINE 'TMPRF! 


CHECK FOR ERROR ON GETTING REFERENCE THERM 
MILLIVOLTAGE. ERENCE THERMOCOUPLE 


Pea LERR@1) 79798 

LK=LK+1 

WRITE(LUWs102) IERR»LK 

FORMAT('ERROR VOLT='sI39'TRY NO='913) 
PARR oS) 229759 75 

LK=0 

CONTINUE 


INITIALIZE VALUES FOR AVERAGINGe» 


VRBT=000 
VREF=0e0 
VOLT=0e0 


SUM THE READINGS OBTAINEDs 


DO 90 T=195 
VRBT=VRBT+RBT (1) 
VREF=VREF+REF (1) 
VOLT=VOLT+VVOLT(1) 
CONTINUE 


AVERAGE THE READINGS 


VRBT=VRBT/5e0 
VREF=VREF/5e0 
VOLT=VOLT/500 


DIVIDE AVERAGE REFERENCE VOLTAGE BY 10 TO TAKE INTO 
ACCOUNT THE DIFFERENCE IN EDIT CHARACTERS ON LOOPS 
'LREF' AND 'LRBT'e 


VREF=VREF/1000 
WRITE OUT THE AVERAGE RESISTANCE BULB VOLTAGEe 


WRITE (LUWs6000) VRBT 
FORMAT ('VRBT='9F1005) 


WRITE OUT THE AVERAGE REFERENCE VOLTAGE «s 


WRITE (LUWs6001)VREF 
FORMAT ('VREF=!sF10e5) 


WRITE OUT THE AVERAGE MILLIVOLTAGE ON REFERENCE 
THERMOCOUPLE IN REFERENCE BATHe 
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APPENDIX=III 5 
SUBROUTINE 'TMPRF! 


WRITE(LUWs201) VOLT 
201 FORMAT ('MV='9F1005) 


a CALCULATE TEMPERATURE IN COLD JUNCTION REFERENCE 
C BOX USING DACS SYSTEM SUPPLIED EQUATION. 


TR=51¢876*VRBT/VREF +4120 
WRITE(LUWs200) TR 
200 FORMAT('REF BOX TEMP=! »F10¢5) 


CALCULATE THE COLD JUNCTION COMPENSATION MILLIVOLTAGE 
FOR THE CHROMEL=CONSTANTAN REFERENCE THERMOCOUPLE 
USING POLYNOMIAL DERIVED FROM A LEAST SQUARES FIT 

TO THE TEMPERATURE=MILLIVOLTAGE TABLE FOR THE 

RANGE 50 TO 95 DEGREES FAHRENHEIT. 


LVEVLVEA CY OX 


VCOR= ((00¢1507260E=04%TR)4+0e3146716E-01) *TR=1.022466 


CHECK IF THIS THE BEGINNING OR END OF DATA 
ACQUISITION RUNe 


oe 2 


Pe tLPLAGS Lh 7Os 70571 


C CALCULATE CORRECTED REFERENCE THERMOCOUPLE 
C MILLIVOLTAGE AT THE BEGINNINGs 


70 RTMV1=VOLT+VCOR 
WRITE(LUWs15) RTIMV1 

15 FORMAT('REF TEMP MV AT START='9F1005) 
GoTo. 72 

7e RTMV2=VOLT+VCOR 


a WRITE OUT THE CORRECTED REFERENCE THERMOCOUPLE 
C MILLIVOLTAGE AT END OF RUNe 


WRITE(LUWs16) RIMV2 
16 FORMAT('REF TEMP MV AT END=!'sF1005) 


C AVERAGE THE CORRECTED REFERENCE THERMOCOUPLE 

C MILLIVOLTAGE FROM BEGINNING AND END OF RUNe 
RFTMV=(RTMV1tRTMV2)/260 

C WRITE OUT AVERAGE CORRECTED REFERENCE THERMOCOUPLE 

a MILLIVOLTAGE®s 


WRITE(LUWs17) RFTMV 
17 FORMAT('AVE REF TEMP MV=!o9Fl005) 
72 RETURN 
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APPENDIX=III 1 
PROGRAM 'STDAT! 


PROGRAM 'STDAT! 


—— ae eee eats AES eats NS GUE late Mee Nee ee eee Me es eel MS SE nite nt Mee Sk le i le i 
— oe oy —_ oe 


emt cee em te aes ene ie nae A Many INS hs LE ln Ad kk Mi Gea Od 


*% PROGRAM STDAT *% 


Oe eee * 
~ ~s 9 Oe tes Oe esi ORD ORS mis ney SOE Soke Oe mt ame MS ee 
_— a i He a ee ~ a _ eee 


PURPOSE 


JO UTILIZE THE SYSTEM SUBROUTINE 'FLSRT! TO 
SORT THE ACQUIRED DATA AND PLACE IT IN 
PERMANENT DISK FILES. 


PARAMETERS ENTERED VIA KEYBOARD 
THE MEANING OF THE VALUES ENTERED IS EXPLAINED 
IN THE LISTING OF PROGRAM 'PULSE'« 


*#*% TABLE OF FUNCTION OF VARIABLE NAMES ** 


a cy ms AR re te tle le te de ns ny ky ih Mime Mh lh en ne ll ees MR tee SD em ay san Me St hs a Sad im MO OE ls he ly ct Sn SY ss Meh MH 


VARIABLES NOT REFERENCED IN THIS PROGRAM ARE EXPLAINED 
IN THE SYSTEM WRITEUP FOR THE USE OF SUBROUTINE 
‘FLOR *-s 


LUW=LOGICAL UNIT NUMBER FOR TYPEWRITER OUTPUT e 


em eR es ee ee enh A mes ms en i ee nae ee Ne A eek ls EM CE NY i I ns YS SE cee OE ON GD a NS NE I A an A AE Mn A GS 


LOE EY EREY (VONECY FU Cy FN CY OY CYP OV £Y OF OOO OO Fy Ey yeaa ore) 


DEFINE FILE 5$1(649809UsU0) 952(64s809U9U0) » 
153(649809UsU0) 954(649809U9U0) 955(649809U9U0) » 
156(643809UsU0) 957164980 9UsU0) 965 (419320 2UsU0) 

INTEGER OUTFL(83) 

DIMENSION IFUNC(4) sINFLE( 323) 

COMMON IIII(376) 

LUR=1 

LUW=2 


C WRITE OUT DATA ENTRY INSTRUCTIONS» 


WRITE(LUWe111) 
el FORMAT('ENTERsIFLFoIFLT »MPXF sMPXT !) 


C CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
C ENTRY 
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APPENDIX=ITI 2 
PROGRAM 'STDAT! 


PROGRAM 'STDAT! 
CALL FFINP(LUR94s0sTFLF 20% IFLT 90 sMPXF 90 sMPXTsIEROR} 


¢ SORT OUTPUT DATA (TEMPERATURE). 
€ *% 
€ SET FLAG FOR OUTPUT DATA. 
IFLAG=1 
IFUNC(1)=MPXT 
IFUNC(2)=40 
INFLE(1)=65 


INFLE(2)=320 

INFLE(3)=41 

OUTFL(1)=IFLT 

OUTFL(2)=80 

OCUTFL(3)=64 

WRITE (LUW 93) 

2 FORMAT ('TEMPERATURE DATA!) 

CALL FLSRT(IFUNC 9 INFLEsOUTFL) 


© WRITE OUT ERROR PARAMETER. 
21 WRITE (LUWs1)IFUNC(3) 
1 FORMAT('ERROR ON SORT='913) 
C WRITE OUT LOST TIME COUNTe 


WRITE(LUWs2) IFUNC(4) 
2 FORMAT('NOe GRPS WITH TIME ERRORS='913//) 
IF (IFLAG=1)10910920 


C SORT INPUT DATA( FLOW) « 


10 IFUNC (1) =MPXF 
OUTFL(1)=IFLF 
WRITE (LUW 94) 
4 FORMAT ('FLOW DATA') 
CALL FLSRT(IFUNCsINFLEsOUTFL) 


c SET FLAG FOR INPUT DATA6e 


IFLAG=2 
GOTO 21 

20 CALL VIAQ 
END 





5 




















L1l=KEGns99A 
/ 


LnonsteTx@ne 0+xs6 OFM «04381 408A USE 


= aes owe 


*/ 2AUTAAZAMSTY AT, 


6 


oATAQ.- Tuatuo AC 





es? 


TROMetL) 3M 
. |) Oaats) 


TIAL etL). > 
6 OB a(S ATU 
poe(€) SATUO 

CeO ATTA 

('ATAQ SAUTARSSMST") TAMAOD 

(J9TUOe 341 e MUTT ASIA SIAR 
ef3TAMARAG AOAAA TUO STIAW 

(ey 2VUaTt LewUS)3TI 

(Elet=Taoe KO noni Pid 


eTAUOD SMIT 1204 Tuo 3 


(OP DWUAL (SeWUJaT 
(\\elet=2HORRa BMIT HTIW 2990 eOK"IT 
OSeOLeOL(L=dAL4T 


“ — = 


. (WOS3)ATAQ TUSHE 
ansetee 


i 










a | ot as 
eat aA: oad 


Soiceains 2 
.< 1 eae 
— @ATAG © OF 

: poe . 


APPENDIX=III 1 
PROGRAM 'SET! 


PROGRAM 'SET! 


c= nT rie eee ger SS ae Se es pe ahr ann AS ess mS fo oso se now Sol me tinh pm with es in ence ss sd cas as caw 
a ** PROGRAM SET *%* 
SS RS es et eS kn es ky ee ssid sa ib, tao iii oe it un sp cep ch chin eet ce en ee ee en 
C 
eS PURPOSE 
. 
. TO INITIALIZE THE FLAG "IND! FOR PROGRAM CHIEF? 
: AND TO WRITE OUT LINKAGE SEQUENCE INSTRUCTIONS 
C 
Cc ** TABLE OF FUNCTION OF VARIABLE NAMES ** 
ee ae sen eS Aso ee tm mes stn eg sss: si nn Ws wr Guns a! Gi boc una es mee ep es ls eg 
C 
¢ LUW=LOGICAL UNIT NOe FOR TYPEWRITTER OUTPUT. 
C 
c 
(a SS OS ee EAS eT eee ES Ma ny OOD MOND Med RS GD ad GER SOS em GE ON Makes UND GENE SER GANN ERS mamD iw fuem Gm ens. pO: SAO tt one Gin cainw gums nad Goel UO dues ied Gem ahd eae 
C 
c 

COMMON/INSKEL/INDs IXsINPUT(15) sISGN 

IND=0 

LUW=2 
a . WRITE OUT DATA ENTRY INSTRUCTIONSe 


WRITE(LUWs1) 
| FORMAT('THE VALUES TO ENTER FOR BRANCHING TO CORE',s 
1'LOADS ARE AS FOLLOWSS'//) 
WRITE (LUWs8) 
FORMAT ('MVTMP=1'/) 
WRITE (LUWs9) 
9 FORMAT('VTFLO=2'/) 
WRITE (LUWs2) 


co 


FORMAT ('PWRSL=3!'/) 
WRITE (LUW 96) 

6 FORMAT ('SMOTH#4'/) 
WRITE (LUW 93) 

3 FORMAT('KLTLY=5'7/) 
WRITE (LUW 94) 

4 FORMAT('BFKTY=6'/) 


WRITE (LUW911) 

ll FORMAT ('FREQ=7'/) 
WRITE (LUWs10) 

10 FORMAT('BUCWS=8!7/) 
WRITE (LUWs12) 

ae FORMAT ('PICK=9!/) 
WRITE (LUW97) 
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APPENDIX=III 2 
PROGRAM 'SET!- 


FORMAT ('WRITE#10'/) 

WRITE (LUW95) 

-FORMAT('SPARL=11'/) 

WRITE (LUWs13) 

3 FORMAT('ENTER A O AT THE END OF THE SEQUENCE') 
CALL LINK(CHIEF) 

a ENO uoer os: 
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PROGRAM 'CHIEF! 


Ge aes Se) ee cares SS SS, ae ERE cas creme en ees ee Coen ee Gees cee cee cane Gets Ges come SteD Gams Ghd Oe EEE cme GENS ies Cem GELS Kime GENS EN 2666 BEL OS GO cies GUND mms nes cet Oms OOS GES ents SOE en ime GE Oem GOED suis Sid Gb OUD ONS 
C ** PROGRAM CHIEF *x 

GC eR ETS RY pe es tS ee ee th ee ee ee ce Gee Hees Cie ee ee come Bie Mien eee een Wied weak GENS itty GMS EY Gees Ge Ohm sheen EES OSD Lids ile Gime Gas Wiis think) Nene Gidtd Meee tS GONE Gens OOM KE dimes aniht Abe GA meee eis ON Gite Old 
g 

C PURPOSE 

% 

C TO PROVIDE AN EXECUTIVE TO SUPERVISE THE 

C CALLING SEQUENCE FOR THE DATA ANALYSIS PROGRAMS 
: ASSOCIATED WITH PULSE TESTINGs 

c 

C 

C *# GENERAL COMMENTS ** 

G ete Sts ee ees ee eam cee ass ese neh em Go NS GD mnie eee is cn cms ks I Ms RN Sci ten Ses in ht Pn id Ses MaSY Ska) ORD is AS cote Lo me AO te ONS MH cn els en es cs A 


THE OPERATION OF THE PROGRAM IS AS FOLLOWSS 


le THE DIMENSIONED VARIABLE INPUT IS SUPPLIED 
WITH A SEQUENCE OF NUMBERS ENTERED FROM THE 
KEYBOARD « 


2e THE VALUE OF EACH NUMBER DETERMINES WHICH 
PROGRAM IS CALLEDe THE ORDER OF THE NUMBERS 
DETERMINES THE ORDER IN WHICH THE PROGRAMS ARE 
CALLEDe 


3e WHEN A ZERO IS ENCOUNTERED IN 'INPUT! THE 
PROGRAM REQUESTS A NEW SEQUENCE OR EXITS DEPENDING 
UPON THE VALUE OF 'ISGN'e 


4e ALL ANALYSIS PROGRAMS RETURN TO CHIEF ON 
COMPLETIONe 


%% TABLE OF FUNCTION OF VARIABLE NAMES #* 


a ent Secs ssc, amy hn oa a on a tm hs nn ee (ha Nt mJ OS Sn SP a a ee 


ANNA AOOGAOAAN AO EHAOnANAHAM 


IND IS A FLAG INITIALLY SET TO ZERO BY THE 
INITIALIZATION PROGRAM 'SET!'e 


IX IS THE SUBSCRIPT FOR THE LOCATION OF THE SEQUENCE 
VALUE BEING CONSIDEREDe« 


ISGN=l A NEW SEQUENCE IS REQUESTED WHEN A ZERO IS 
ENCOUNTERED IN 'INPUT's =2 PROGRAM EXITS WHEN ZERO IS 


ENCOUNTERED e 


BEGET ry CY CY CY OL OY OY OY OY 


JUMP 1S SET EQUAL TO EACH NUMBER IN THE SEQUENCE 
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APPENDIx<I11 2 
PROGRAM 'CHIEF! 


OF 'INPUT' SO IT CAN BE USED AS THE INDEX IN A 


COMPUTED GO TO FOR SELECTION OF THE NECESSARY 
PROGRAMe 


_— — oe ne oe _ 
— — me i A A i cs Ne A A A A cs SS Se ee 


Oven CV CY fy 1) Ores 


COMMON/INSKEL/INDs IXsINPUT(15)5I1SGN 
LUR=1 
LUW=2 
IF (IND) 10910381000 
10 IX=1 
C WRITE OUT DATA ENTRY INSTRUCTIONSe 
WRITE (LUW95) 
5 FORMAT('ENTER LINKAGE SEQUENCE FROM INSTRUCTIONS ABOVE 
ae) 


c CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
C ENTRY se 


CALL FFINP(LUR919150s INPUT sITEROR) 
Cc WRITE OUT DATA ENTRY INSTRUCTIONSe 


WRITE (CLUW 98) 
8 FORMAT('ENTER 1 FOR RETURN» 2 FOR EXIT!) 


C CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
C ENTRY. 


CALL FFINP(LURs190sITSGNsTEROR) 
IND=1 


C CHECK FOR A ZERO IN SEQUENCEs 


IF( INPUT(IX))1009100911 
1000 IX=IXxX+1 


C CHECK FOR A ZERO IN SEQUENCE. 
IF (INPUT(IX))1009100911 
c SET GO TO INDEXe 


JUMP=INPUT (IX) 
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APPENDIX=I11 3 
PROGRAM 'CHIEF! 


© SELECT THE REQUESTED PROGRAM. 


——— GOTO (21922923524525926927528 529930931) »JUMP 
21 CALL LINK(MvTMP) 
mee CALL LINKI(VTFLO) 

PPP CALL LINK (PWRSL) 
CALL LINK(SMOTH) 
CRUE TNKOKLTLY ) 
CALL LINK(BFKTY) 
CALL LINK(FREQ) 
CALL LINK(BUCWS) 
CALL LINK(PICK) 
CALL LINK(WRITE) 
CALL LINK(SPARI) 


_ CHECK IF A FURTHER SEQUENCE IS TO BE ENTEREDe 
IF (ISGN=1)10910s500 


SALESEXTT 
END 
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APPENDIX=III 1 
PROGRAM 'VTFLO! 


PROGRAM 'VTFLO! 


ee ee Rs A es eR ee es ee Ml See 
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** PROGRAM VTFLO *# 


ee me ee tes ee ee te A ee Ah mn 1 
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PURPOSE 
le TO CONVERT THE INTEGER VALUES READ FROM THE 
FLOW TURBINE TO THE EQUIVALENT IN VOLTS BY 
READING THEM A RECORD AT A TIME FROM DISK 
FILESs 


2e TO CONVERT THE VOLTAGE VALUES OBTAINED IN ‘1 
TO THEIR EQUIVALENT IN GALLONS/MINUTE (UeSe) 
ANDO STORE THE RESULTS IN A NEW DISK FILEs 


PARAMETERS ENTERED VIA KEYBOARD 


IFLR = NOs OF FILE WHERE SORTING PROGRAM 
'STDAT' HAS STORED 'FLOW DATA’ 
(INTEGER FORM) « 

Pri Wir = “NO tO -F PLE “WHERE "FP GOW "OA TAIN GRE EONS 
PER MINUTE (UsSe) 15 TO BE STORED 
(REAL FORM). 

N - NUMBER OF POINTS THAT ARE TO BE CONVERT= 
ED TO FLOWs 

REBOG vs TURBINE SDDENTDF IGAT ION Ge) rsoleI NCH SIZE 
=2 ~ 3/4 INCH SIZEe6e 


RESTRICTION 
le THE FILE NUMBERS IFLR AND ITFLW MUST BE 
DIFFERENT e 


** TABLE OF FUNCTION OF VARIABLE NAMES ** 
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IVOLT 1S A DIMENSIONED VARIABLE INTO WHICH 
INTEGER VALUES REPRESENTING THE VOLTAGE FROM THE FLOW 
TURBINE ARE READ A RECORD AT A TIMEs 


FLOW IS A DIMENSIONED VARIABLE IN WHICH THE 
CONVERTED FLOW VALUES ARE SAVEDe 


LUR=LOGICAL UNIT NUMBER FOR TYPEWRITER INPUT 


a 
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APPENDIX=III 2 
PROGRAM 'VTFLO! 
LUW=LOGICAL UNIT NUMBER FOR TYPEWRITER OUTPUT. 


NPPRI=NOe OF INTEGER POINTS PER RECORD WHICH IS 
EQUAL TO NOe OF WORDS PER RECORD. 


VOLTR=VOLTAGE RANGE ON THE MULTIPLEXER POINT 
MEASURING THE FLOW TURBINE SIGNAL 


NPPRF=NOo OF REAL POINTS PER RECORD. 

IRL=NO«e OF LAST RECORD OF INTEGER VALUES USED. 

ISW AND IFW REPRESENT TwO CONSECUTIVE RECORD NUMBERS = 
THE RECORDS WHERE THE REAL VALUES SAVED IN 'FLOW! ARE 
STOREDe 


Soa & SUBSCRIPT FOR THE LOCATION OF THE FIRST DATA 
POINT TO BE STORED IN A RECORD. 


K IS SUBSCRIPT FOR THE LOCATION OF THE LAST DATA 
POINT TO BE STORED IN A RECORD. 


Dee en nen ne nn ee ee ee 


AHORA OON AAO AAH OF OVALE EVV ETT 


DEFINE FILE 51(649809UsU0) 952(645805sUs U0) » 
153(64980sUsU0) 954164980 9UsU0) 955(649809Us U0) » 
156(64980 9UsJ0) 957(645802Us40) 958 (64280 9UsU0) 

DIMENSION IVOLT(80) sFLOW(160) 


‘ INITIALIZE PARAMETERSe 


LUR=1 
LUW=2 
NPPRI=80 
VOLTR=500 
NPPRF=NPPRI/2 
WRITE (LUWs5555) 
5555 FORMAT('THIS IS PROGRAM VTFLO'Y/) 


C WRITE OUT DATA ENTRY INSTRUCTIONSe 
WRITE (LUWol) 
1 FORMAT('ENTERsIFLReIFLWeNoITFLOC') 
C CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 


he ENTRY 
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APPENDIX@11% 3 


PROGRAM 'VTFLO! 
CALL FFINP(LURs4s0seIFLReOslTFLWs0sNsOsITFLOCsIEROR) 
IRLEN/NPPRI 
ISw=0 
IFW=0 
DO 10 IR=1lsIRL 


C READ A RECORD OF INTEGER VALUES REPRESENTING VOLTAGEs 


READY TEER! TRO TYVOLT 
DO 11 I=l1»sNPPRI 


C CHANGE THE INTEGER VALUE TO A REAL VALUEs 
V=FLOAT(IVOLT(1)) 


. CALCULATE THE ACTUAL VOLTAGE VALUE MEASURED. 


V=VOLTR/32767¢0*V 


C CALCULATE THE FLOW METER FREQUENCY BY USING A LEAST 
c SQUARES POLYNOMIAL FIT TO A FREQUENCY=VOLTAGE TABLEe 
. THEN APPLY A LINEAR CONVERSION CONSTANT TO CONVERT 
cj FREQUENCY INTO GALLONS PER MINUTE (UeSe)« 
Pei IPLOC=1)15 »tasi6 
22 FLOW( 1) =(((0e870309%V=13 0249) #V+288 0714) *Vt9 052604) 
1*0 +0426 
GOTO 11 
16 FLOW( 1) = (6 (06916809%V—13 62838) #V+28 720047) ¥V411.0247) 
1*0.e0195 
age CONTINUE 
ISW=IFWt+l 
IFw=I Sw+l 
¢ INTEGER VALUES YIELDS TWO RECORDS OF REAL FLOW 
G VALUESe 
J=1 
K=NPPRF 


DO 10 IW=ISWsIFwW 
WRITEC(IFLW'IW) (FLOW(L) sL= 49K) 
J=J+NPPRE 
K=2*K 

10 CONTINUE 
Cab. WINK ICHIEP) 
END 
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APPENDIX=2if 1 
PROGRAM 'MVTMP! 


PROGRAM 'MVTMP! 
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C 
C *#* PROGRAM MVTMP *% 
C 
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PURPOSE 


le TO CONVERT THE INTEGER VALUES READ FROM THE 
PRERMOPDLCE TOCTHESEQUIVALENT | FNOMPLEIVOLTS [BY 
READING THEM FROM A DISK FILE A RECORD AT A 
TIME s 


2e TO CONVERT THE MILLIVOLTAGE VALUES OBTAINED 
IN le TO THEIR EQUIVALENT IN DEGREES FAHRENHETT » 
AND TO STORE THE’ RESULTS TN A NEW FILEs 


PARAMETERS ENTERED VIA KEYBOARD 


LEUR Pe "NOW OE APILE CWHERE) SORT INGHPROGEAN 
'STDAT' HAS STORED. ' TEMPERATURE DATA* 
(INTEGER FORM) « 

IFLW = NOse OF FILE WHERE TEMPERATURE DATA IN 
DEGREES FAHRENHEIT 13 TO BE. STORED 
(REAL FORM) e 

N - NOs OF POINTS TO BE CONVERTED TO 
TEMPERATURE « 

PROBC = NOe ELEMENTS IN THE THERMOPILE USED. 

RFTMV = AVERAGE REFERENCE BATH REFERENCE 
THERMOCOUPLE MILLIVOLTAGE AS WRITTEN 
OUT BY PROGRAM !'PULSE's 
(COMPENSATED MILLIVOLTAGE FOR 
THERMOCOUPLE MEASURING REFERENCE BATH 
TEMPERATURE) « 


RESTRICTIONS 


le THE FILE NOS» IFLR AND TFLW MUST BE 
DIFFERENT. 


#% GENERAL COMMENTS ** 


THE ORIGINAL THERMOPILE WAS MADE OF CHROMEL= 
CONSTANTAN (CH#C) THERMOCOUPLE WIREs THE TEMPERATURE 
OF THE THERMOPILE REFERENCE BATH WAS MEASURED BY A 
SINGLE REFERENCE THERMOCOUPLE OF THE SAME MATERTALs 
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APPENDIX=III 2 
PROGRAM 'MVTMP! 


TO CONVERT THE SIGNAL MEASURED FROM THE THERMOPILE TO 
DEGREES F INVOLVED THE FOLLOWING STEPS == 


le CONVERT INTEGER VALUE READ FROM THERMOPILE 

MULTIPLEXER TO ITS EQUIVALENT IN MILLIVOLTS 
USING A LINEAR CONVERSIONe 

2e DIVIDE THE MILLIVOLT VALUE BY THE NUMBER OF 
PROBES AND ADD IT TO 'RFTMV! = THE COMPENSATED 
MILLIVOLTAGE FROM THE REFERENCE THERMOCOUPLE. 

36 SUBSTITUTE THE RESULT OF 2.6 INTO A POLYNOMIAL 
DERIVED BY A LEAST SQUARES FIT TO THE CH=Cc 
THERMOCOUPLE TABLES TO OBTAIN THE TEMPERATURE 
AT THE THERMOPILE HOT UJUNCTIONSe 


FAILURE OF THE CH=C THERMOPILE FORCED THE USE OF A 
COPPER=CONSTANTAN (C=C) TYPEs BECAUSE OF THIS 

TWO ADDITIONAL LEAST SQUARES POLYNOMIAL FITS TO THE 
C=C TABLES WERE REQUIREDe BASICALLY THE 'RFTMV! 
MILLIVOLTAGE VALUE MEASURED WITH A CH=C TYPE 
MAD.1O°RE CONVERTED TO “THE sC“C 'M PUINDI VOLTAGE 
EQUIVALENT FOR THE SAME TEMPERATUREe THE STEPS 
INVOLVED CONVERTING THE CH“C MILLIVOLTAGE TO DEGREES 
F THEN THE DEGREES F TO THE EQUIVALENT C=C 
MILLIVOLTAGE.s 


¥% TABLE OF FUNCTION OF VARIABLE NAMES ## 


ee ee ee ee ee 


MVOLT IS A DIMENSIONED VARIABLE INTO WHICH INTEGER 
VALUES REPRESENTING -THE MPLOIVOLTS READ FROM THE 
THERMOPILE ARE READ A RECORD AT A TIMEe 


TEMP IS A DIMENSIONED VARIABLE IN WHICH THE VALUES 
CONVERTED TO TEMPERATURE ARE SAVEDe 


LUW=LOGICAL UNIT NOe FOR TYPEWRITER OUTPUT. 
LUR=LOGICAL UNIT NOs FOR TYPEWRITER INPUTe 


NPPRI=NO5o OF INTEGER POINTS PER RECORD WHICH IS EQUAL 
TO NOe WORDS PER RECORD. 


IRL=NOe OF LAST RECORD OF INTEGER VALUES USED. 


Sw AND IFW REPRESENT TWO CONSECUTIVE RECORD NUMBERS = 
THE RECORDS WHERE THE REAL VALUES SAVED IN 'TEMP! 
ARE STORED. 


NPPRF=NOs OF REAL POINTS PER RECORD. 
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APPENDIX=I1II 3 
PROGRAM 'MVTMP! 


J IS A SUBSCRIPT FOR THE LOCATION OF THE FIRST DATA 
POINT TO BE STORED IN A RECORD, 


K IS SUBSCRIPT. FOR THE LOCATION OF THE LAST DATA 
POINT TO BE STORED IN A RECORDe 


role THE TOTAL MILLIVOLTAGE WHICH IS REPRESENTATIVE 
OF THE TEMPERATURE AT THE HOT JUNCTION OF THE 
THERMOPILE. 


2 1S A DUMMY VARIABLE EQUAL TO 'RFTMV' USED FOR 
SUBSTITUTION IN A POLYNOMIAL. 


T EQUALS THE TEMPERATURE IN THE THERMOPILE REFERENCE 
BATH IN DEGREES Fe 


Y 1S THE MILLIVOLTAGE THAT WOULD BE GENERATED BY A 
COPPER=CONSTANTAN THERMOCOUPLE IF THE HOT 

JUNCTION WAS AT TEMPERATURE 'T*' AND THE COLD 
JUNCTION WAS AT ICE POINT. 


ee cee NO ee Ee nee ee ce Oe ke A ee ee es ts SK a yO a EE ee oe RR MS Ae GS ims otis A ees es es me A es i es eas 


EV OrEee LT CLeL Cy Oe CV Cres OP Pe OP eT er CY OWE CY OV EY iy CF ee 


DEFINE FILE 51(649809UsU0) 952(64980:UsU0) » 
153(64980sUsU0) 954(649809Us 50) 355(64380 9UsU0) » 
156(649809Us40) 957(64s809UsU0) 958(642809U8U0) 

DIMENSION MVOLT(80O) »TEMP(80) 

c INITIALIZE PARAMETERSe 


LUR=1 

LUW=2 

NPPRI=80 

WRITE (LUW95555) 


C WRITE OUT PROGRAM IDENTIFICATIONe 
5555 FORMAT('THIS IS PROGRAM MVTMP!/) 
C WRITE OUT DATA ENTRY INSTRUCTIONSe 


WRITE (LUWs1) 
1 FORMAT ('ENTERsIFLReIFLW9NsPROBCsRFTMV! ) 


CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
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PROGRAM 'myTmpt 


Cc ENTRY e 
CALL FFINP(LURs5 sOsIFLRs0sIFLW909N91sPROBCsl sRETMV 
l»IEROR) 
IRL=N/NPPRI 
ISwW=0 
IFW=0 
NPPRF=NPPRI/2 
Z=RFTMV 
c CONVERT MILLIVOLTAGE VALUE 'RFTMV' TO THE EQUIVALENT 
C _ TEMPERATURE IN DEGREES F USING A LEAST SQUARES 
c POLYNOMIAL FIT TO THE CHROMEL=CONSTANTAN THERMOCOUPLE 
C TABLE es 
IF (Z=4026298) 88388398 
88 T=(((0068351718E-02*2Z) -0 04344516) *Z+302833308)%Z+ 
132001089. 
GOTO 13 
98 T=(((002150481E=-02*Z) -0 02575562) *Z+29 0656109) ¥Z+ 
134.299718 
13 IF (T=9100) 33933934 
aa CONVERT THE DEGREES F EQUIVALENT TO MILLIVOLTS USING 
. LEAST SQUARES POLYNOMIAL FIT TO THE COPPER-= 
. CONSTANTAN THERMOCOUPLE TABLE. 
33 Y=(((001482909E-07*T) +0e1081611E-04) *T+062067943E=-01) 
1*T-006737249 
GOTO 19 
34 TF (T=15120)43 943944 
43 Y=(((Oe7703282E-O8*T) +0 098908U5E=-05) ¥T+0021U4733E=-01) 
1*T=0 26942869 
GOTO 19 
44 Y=(((001301623E-O7#T) #00445U828E-U5) *7+002235491E-01) 
s 1*T-0. 78613748 
C WRITE OUT TEMPERATURE IN REFERENCE BATHe 
19 WRITE(LUW9100) T 
100 FORMAT('TEMP REF BATH=!9F10¢5) 









DO 10 IR=lsTIRL 
READ A RECORD OF THE INTEGER VALUES REPRESENTING 
MILLIVOLTSe 


READ(IFLR'IR) MVOLT 
DO 11 I=l1sNPPRI 


CHANGE INTEGER VALUE TO A REAL VALUEs 
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APPENDIX=I1I1 -) 


PROGRAM 'MVTMP! 
VEFLOAT(MVOLT(1)) 
CALCULATE THE ACTUAL MILLIVOLTAGE VALUE MEASURED. 
MEASUREMENT IS MADE ON A 20 MV RANGEs 
ADD THE MILLIVOLTAGE FROM THE THERMOPILE TO ty! To 


OBTAIN MILLIVOLTAGE EQUIVALENT TO THE TEMPERATURE AT 
THE THERMOPILE HOT JUNCTIONS.» 


ie sk i a OB a a i | 


K=Y+2000/32767e0*V/PROBC 


OBTAIN TEMPERATURE IN DEGREES F AT THE THERMOPILE 
HOT JUNCTION BY USING A LEAST SQUARES POLYNOMIAL FIT 
TO THE COPPER=CONSTANTAN THERMOCOUPLE TABLEes 


te Bs Be ain | 


IF (X=10¢309)20920 921 
20 TEMP(1)=(((006025596E=02*X ) 10252428) *X+46 069154) *X 
1+32001969 
GOTO ll 
7 21 IF (X=20736) 22922923 
22 TEMP(1)=(( (00170239 7E=O1*X )=1 0046060) *X+46 005431) ¥X+ 
} 132248098 
| GOTO ll 
23 TEMP (1T)=(( ("0 06593423E-02*X) =0 06461391) *X+44035243) *X 
; 14+ 34063365 
" v1 CONTINUE 
; ISW=IFW+l 
iy IFW=ISwt+l 
; Jnl 
: K=NPPRF 
DO 10 IW=ISWsIFW 


a STORE THE TEMPERATURE VALUES ON DISKe NOTE ONE 
C RECORD OF INTEGER VALUES YIELDS TWO RECORDS OF REAL 
. TEMPERATURE VALUESe 
WRITECIFLW'IW)  (TEMP(L) sL=J0K) 
JEI+NPPRFE 
K=2*K 
CONTINUE 


Sack. LINK (CHIEF) 
END 
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PROGRAM 'SMOTH! 


PROGRAM 'SMOTH! 


c *%* PROGRAM SMOTH ** 


oO 
{ 
t 
I 
I 
1 
! 
J 
I 
t 
t 
! 
i 
t 
: 
H 
! 
I 
i 
I 
i 
! 
} 
I 
! 
I 
u 
i 
I 
I 
! 
i 
! 
I 
I 
t 
! 
i 
i 
I 
t 
I 
I 
I 
i 
f 
I 
i] 
i 
I 
i 
{ 
t 
E 
! 
! 
i 
t 
I 
t 


PURPOSE 
TO PROVIDE A VARIETY OF DIGITAL SMOOTHING 
FORMULAS FOR DATA ANALYSIS OPERATIONS» 
THE FOLLOWING FORMULAE ARE AVAILABLE == 


1 SMOTHING WITH LEAST SQUARES FIT TO POLYNOMIALS 
OF ORDERS 2 TO 5 INCLUSIVEsUSING FROM 3 10. 22 
POINTS INCLUSIVE. 


2 EXPONENTIAL SMOOTHING (SYMMETRICAL) USING 3585 OR 
7 POINTS INCLUSIVE. 


3 SMOOTHING OF SPECTRAL DENSITIES USING ONE OF 
THREE SPECTRAL WINDOW FORMULASe 


PARAMETERS ENTERED VIA KEYBOAR 


IFLR = NOswe OF DISK FILE CONTAINING RAW DATAs 
IFLW = NOe OF DISK FILE WHERE SMOOTHED DATA 
ES TO BE STOREDs 
N - TOTAL NOe OF POINTS TO BE SMOOTHEDe 
IFLTP-= SELECTS THE TYPE OF FILTERING USED» 
=1 = LEAST SQUARES» =2 = EXPONENTIAL» 
=3 = SPECTRAL WINDOWe 
IDEG = SELECTS THE ORDER OF POLYNOMIAL USED IN 
LEAST SQUARES FIT» =1 — 2ND OR 3RD» 
=2 = 4TH OR 5THe 
NS = DETERMINES THE -NOw “OF POINTS USED * == 
IFLTP=l»9IDEG=l»NS=19293 OR 4 FOR D5Da799 
OR 11 POINTSe 
IFLTP=lsIDEG=29NS=1l9293 OR 4 FOR Fe9eil 
OR 13 POINTSe 
IFLTP=2sNS=192 OR 3 FOR 395 OR 7 POINTSe 
B = EXPONENTIAL SMOOTHING CONSTANT e 
AS B GOES FROM 1¢0 TO Os0 THE WELGHT 
GIVEN TO THE POINTS EITHER SIDE OF 
POINT BEING SMOOTHED GOES FROM 1e0 TO 
O20 e 
I SW = SELECTS SPECTRAL WINDOW FORMULA: 
=] = HANNINGs #2 = HAMMINGs =3 = HANNING 
SECOND PASSe . 
NLP = = NUMBER OF TIMES THE PROGRAM WILL 
EXECUTE USING THE SAME PARAMETERSe 
THIS CAN BE USED WHEN SMOOTHING IS 


DOAADANDADNDAAAANAANA 


ne 


YAAAANAA 


4 


<< a ee oe we ae ee Oe oe ee ee ee Oe ee ee ee 









































LLi=KLGQH3a844 \ iy a, 


‘ntoMa", MARIBOR 
 IaToM! § 


eT eae as pee ts aes Oe een tom 


#¥# HTOME VAROORG ERED 


ween enna n ann mannan nns 
@ 


3209809, 1 
LATOOME JATIOIU 40 YTALRAV A SOIVORS OF eva 
eZvULTARRGO eleYJAWA ATAG FOF CATUMAO? « 


== =jHAJIAVA SHA SAJUMBOT cAI WOJI0F 3HT ai 
> jArwOvyJO% OT T19 e@gnAu@e T2eASJ HTIW OMIHTOMe 
rt OT @ MOR™ avleueavieudonl @ OT S 29Bdne 9G loam 
“ @AVI2UJIAT eTH109 © 


ae€ OvIeU (cADINTSMMYe? ONIMTOOME JAI TVEVO9XS s 
eavieusavl etTylos Ge 


3 WIeU exttrevrisa JAATIS9S 40 ov IHTOOMe re 


eCAJUMAOF WOOMIW JAATIS92 SAAKL Coe 
a9acevax Aly, OaRaTHa eaaT aMARAG 


eAT) 5 OWITAIATUOD B4IA AeTO 3O sO @ ASE ne 
rAG QSHTVOM2 SASHW 3414 All 3AQ.s04 = WA9k Coo 
edanote 348 OT ef ah 
saHTOGM2 36 OT Z2TVIOF 3AO-sOW JATOT = oh veeeela 
eG3eU OMIARTIIA FO S9YT BHT 2Tosise = Siete 
eJALTHSVOUXS = Sa e2anavoe TeAsd = se > > tls - 


ewOOMIW JAATSEBS2 = Es 
( O92u JAIMOMYJOS 3G H3CRO BMT S@Tossze = o3g!l Wee 
eadnée S = [= eTl4 e3nAUOe TEAR ae 
eHTGe RO HTB = Seo” ,; 
we QBeU 2TvICS 370 «OM BHT ean IMASTa0 = BM one 
Oeted BOR 4 OO EeSelLagnelsoadl el[e9T lat ; 
e2TVIOU LL AG oa eis aus 
LieGelT AQT & MC EeSelseneSanadls [29741 ou . i. 
e2TWIO9. EL AG. gags ee 
2TV1GG ¥ HO 'Sek 803 € AO SélaeveSedtlal ee ae 
eTMATEROD OniRTOOMES JAILTMAVORRKS = we : 
THOl3W BAT. Wea OT Cel MORA Ea0D B ea ese . 
40 30!2 vaHTIg 2TH109 BHT OF Mav Ra, ae 
OT O.f MOAT S360 GanTCoMe ‘OMIae TALOF™ ie 


mE Ts: ev oun 
sAJUMAGR Footed SAATIAG 2T23. i322 = we 
gibi a - €= * ae ay! rv mt oa al 


a 


Pal ed Z 





home| 


APPENDIX=I11 2 
PROGRAM 'SMOTHt 


APPLIED MORE THAN ONCE TO THE SAME 
DATA SET. 

NFINC = = NOs OF FILE NOw INCREMENTSe THIS MAY 
BE USED WHEN CONSECUTIVELY NUMBERED 
FILES ARE TO BE SMOOTHED USING THE 
SAME’ PARAMETERS» NOTE BOTH NOSe OF 
IFLR AND IFLW ARE INCREASED BY 1 WITH 
EACH EXECUTION OF 'SMOTH! UNTIL !NFINC! 
INCREMENTS HAVE BEEN MADEe 

LFLAG ~ =1s RETURN TO SMOOTH ANOTHER FILEs 
=29 EXIT FROM PROGRAMe 


RESTRICTIONS 
THE VALUES SMOOTHED MUST BE REAL NUMBERS. 


** GENERAL COMMENTS ** 


A SS ee Cae cee Ses ams eon SS nee ANA nee AA mi) hes lave eee ants ie Sin ce (as (ns tense (ins ses Sve emp ida amiss inn ae ns in Zits ies bw Mls suis bet ne eens ened slot gs 


THREE OPTIONS FOR SMOOTHING TECHNIQUES MAY BE 
SELECTED USING 'IFLTPt« WHEN PARAMETERS REQUESTED 
HAVE NO SIGNIFICANCE FOR THE PARTICULAR TECHNIQUE 
SELECTEDs A 1 SHOULD BE ENTERED FOR THEIR VALUEe 
THEREFORE IF JIFLTP'=35 'IDEG's 'NS!' AND. 'B! HAVE 
NO MEANINGe 


IFLR AND IFLW MAY BE DIFFERENT OR THE SAME DEPENDING 
UPON WHETHER OR NOT THE UNSMOOTHED DATA IS TO BE SAVED 
OR DESTROYED. 


*¥* TABLE OF FUNCTION OF VARIABLE NAMES ** 


DATAR IS A DIMENSIONED VARIABLE LARGE ENOUGH TO 
HOLD TWO RECORDS OF DATAe THE RAW DATA VALUES ARE 
READ. FROM DISK INTO THIS DIMENSIONe 


DATAS IS A DIMENSIONED VARIABLE LARGE ENOUGH TO 
HOLD ONE RECORD OF DATAe THE SMOOTHED DATA VALUES 
ARE SAVED IN THE DIMENSION OF THIS VARTIABLEs 





a 


PN 1S A DIMENSIONED VARIABLE IN WHICH THE VALUES 
INVOLVED IN SMOOTHING CALCULATIONS ARE SAVED. 

THE DIMENSION OF PN IS SUFFICIENT TO ACCOMODATE THE 
LARGEST NUMBER OF POINTS INVOLVED IN ANY SMOOTHING 


CALCULATIONs 
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LUR=LOGICAL UNIT NUMBER FOR TYPEWRITER INPUT e 
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APPEND? X= 11 f 3 
PROGRAM 'SMOTH! 


LUW=LOGICAL UNIT NUMBER FOR TYPEWRITER OUTPUTe 
NPPR=NUMBER OF POINTS PER RECORD. 
NPLST=NO5 OF POINTS LOADED INTO PN VECTOR AT STARTe 


JFIL TS A DUMMY VARIABLE IN THE LOOP THAT INCREMENTS 
fmt FILE NUMBERS. 


JLP 1S A DUMMY VARIABLE IN THE LOOP THAT APPLIES THE 
SAME SMOOTHING CALCULATIONS TO THE DATA MORE THAN 
ONCE 


IRL=NOe OF LAST RECORD OF RAW DATA USEDe 
NN#=NOe PTSe USED IN SMOOTHING CALCULATIONs 


fete eV ooCRIPT FOR EACH SMOOTHED VALUE AS IT IS 
CALCULATED. 


PP eREPRESENTS THE NO« OF THE RECORD OF SMOOTHED 
DATA CURRENTLY BEING DETERMINEDs 


SUMN IS AN INTERMEDIATE VALUE IN THE SMOOTHING 
CALCULATIONS « 


IRR=NO5e OF RECORD OF RAW DATA READe 


AATYANTOD AAA AAA HR ANH AAD AO BEACH erm 


DEFINE FILE 51(649809UsU0) 952(64%9809U9U0) » 
153(649809U9U0) 954(645809U 240) 955(649809U9U0) » 
156(649809UsJ0) 957(649809U 90) 958 (64980 9U9U0) 

DIMENSION DATAR(40) sDATAS(40) sPN(15) 


C INITIALIZE PARAMETERS+ 
LUR=1 
LUW=2 
NPPR=40 
C WRITE OUT PROGRAM IDENTIFICATION 


WRITE (LUW 94) a 
FORMAT('THIS IS THE SMOOTHING ROUTINE!) 
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APPENDIX=I11 
PROGRAM 'SMOTH! 





WRITE OUT DATA ENTRY INSTRUCTIONS» 


1000 WRITE (LUWs1) 


34 FORMAT C'ENTERsIFLRsIFLWsNoIFLTPsIDEGsNS»BsISWoNLP» 
LNFINC»LFLAG') 


CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
ENTRY e_ 


CALL FFINP(LURs119O0sIFLReOsIFLWsO09NsOsITFLTPx0sI1DEGs 
LOsNSe1lsBsOsTSWsO0sNLPsOsNFINCSOsLFLAGsIEROR) 


SET THE NUMBER OF POINTS TO BE LOADED INTO THE PN 
VECTOR AT THE START. 


GOTO(3015s301%9303)  sIFLTP 
GOTO(5979981l1)9NS 
NPLST=4 
GOTO 2 
NPLST=6 
GOTO 2 
NPLST=8 
“GOTO 2 
NPLST=10 
IFC IFLTP=$1) 393945 
IF (IDEG-1)12912s32 
NPLST=NPLST+2 
GOTO 32 
NPLST=NPLST=2 
GOTO 32 
NPLST=2 
NNENPLST+1 


START OF LOOP WHICH INCREMENTS FILE NUMBERe 
DO 500 JFIL=lsNFINC 


START OF LOOP CONTROLLING THE NUMBER OF TIMES 
SMOOTHING IS APPLIED. 


DO 50 JLP=1»NLP 
IRL=N/NPPR+1 


READ THEFIRST RECORD OF RAW DATAs 
READ( IFLR!'1)DATAR 
INITIALIZATION (FORM PN VECTOR)« 


44 
DO 13 1=2sNN 
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APPENDIX=I1 1] 2) 


PROGRAM 'SMOTH! 
J=T=1 
PN(T)=DATAR(uU) 


i 28 CONTINUE 
DO 20 IR=lsIRL 


¢ START SMOOTHING. CALCULATIONS 
© SMOOTH POINT BY POINT FOR ONE RECORD. 


DO 21 I=lsNPPR 


c CHECK IF THIS IS THE FIRST RECORD OF THE VALUES 
a BEING SMOOTHED. 


PeUIR=1) 39939969 


X CHECK FOR THE LAST RAW POINT TO BE PLACED IN FIRST 
rc RECORD OF SMOOTHED DATAe 


a9 IF ( I@NN/2) 2509250969 


Ga SET THE FIRST 'NPLST' SMOOTHED POINTS EQUAL TO THE RAW 
Cc POINTSe 


— 250 DATAS(1)=DATAR(T) 
t GOTO 21 
69 DO 30 K=1lsNPLST 
Cc SHIFT DATA IN PN VECTOR ONE SPACE BACKe 
KA=K+1 
PN(K) =PN(KA) 
30 CONTINUE 
re ADD A NEW RAW DATA VALUE IN THE LAST LOCATION OF NPe 
PN(NN)SDATAR(T) 
SMOOTHING FORMULA 


H% 
SELECT EXPONENTIALs LEAST SQUARES OR SPECTRAL WINDOWe 


GOTO (44946947) sIFLTP 
is? LEAST SQUARESe 
io %% 
SELECT THE ORDER OF THE POLYNOMIAL FITTED. 
QUDRATIC OR CUBIC. 


GOTO(1019102) sIDEG 
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APPENDIX=<I11 6 
PROGRAM 'SMOTH! 
weer THE NOe OF PTS*e USED IN SMOOTHING CALCULATION. 
GOTO( 105 310751095110) NS 


EXPONENTIAL e 
HH 


SELECT THE NOs OF PTSe USED IN SMOOTHING CALCULATIONe 
GOTO (13191325133) »NS 

SELECT SPECTRAL WINDOW FORMULAs 

GOTO( 30433055306) sISw 

HANNING SPECTRAL WINDOWe 


DATAS(1)=0e5*PN(2)+0025%(PN(1)+PN(3)) 
GOTO 55 


HAMMING SPECTRAL WINDOWe 


DATAS(1)=0054#PN(2)+0023%(PN(1)+PN(3)) 
GOTO 55 


HANNING SECOND PASSe 


DATAS(1)=00e68*PN(2)+00e16*(PN(1)+PN(3)) 
GOTO 55 


THREE POINT EXPONENTIAL 


SUMN=B*PN(2)+(B**2)*(PN(1)+PN(3)) 
DATAS(1)=SUMN/(B+2*B**2) 
Garo. 55 


FIVE POINT EXPONENTIAL 6 


SUMN=B*PN (3)+(B%¥*2)%*(PN(2)+PN(4) )+(B¥*3)%(PN(1)+PN(5)) 
DATAS(1)=SUMN/ (B+2*(B**2+B**3 ) ) 
GOTO 55 


SEVEN POINT EXPONENTIAL. 


SUMN=B*PN (4)+(B¥*2)*(PN(3)+PN(5) )+(B**3) * 
L(PN(2)+PN(6))+(B**4)*(PNC1L)+PN(7)) 
DATAS(1)=SUMN/ (B+2*(B#*2+B¥*3+B**4) ) 

GOTO 55 


SECOND AND THIRD ORDER WITH FIVE POINTS 
- 
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APPENDIX=I11 7 
PROGRAM 'SMOTH! 


SUMN=17. Aaieeopi o#(PN(2)+PN(4G))=35 *#(PN(1)+PN(5)) 
DATAS(1I)=SUMN/35 00 
GOTO 55 


SECOND AND THIRD ORDER WITH SEVEN POINTS. 


SUMN=7.« © *PN (4) 466% (PN(3)+PN(5))+30%(PN(2)+PN(6) ) 
e=ee*(PNCL)+PN (72) 

DATAS(1)=SUMN/2160 

GOTO 55 


SECOND AND THIRD ORDER WITH NINE POINTS. 


SUMN=59 0 #PN(5)+540%(PN(4)+PN(6))+390e#(PN(3)+PN(7) )+ 
1146*(PN(2)+PN(8) )=210*(PN(1)+PN(9)) 
DATAS(1)=SUMN/231¢0 

GOTO 55 


SECOND AND THIRD ORDER WITH ELEVEN POINTS. 


SUMN=89e*PN(6)+84e%(PN(5)+PN(7))+690e*(PN(4)+PN(8)) +446 
L*®(PN(3)+PN(9) )+9e%(PN(2)+PN(10))=360%(PN(1)+PN(11)) 
DATAS(1)=SUMN/429.20 

BUTO 55 


QUARTIC AND QUINTIC « 
KH : 


SELECT THE NOe OF PTSe USED IN SMOOTHING CALCULATION. 
102 GOTO(207920992119213) »NS 
FOURTH AND FIFTH ORDER WITH SEVEN POINTS.e 


207 SUMN=131¢*PN(4)4+756#(PN(3)+PN(5) )—=300e*(PN(2)+PN(6)) 
1+50e*(PN(1)+PN(7)) 

DATAS(1)=SUMN/231+e0 

moi 55 


FOURTH AND FIFTH ORDER WITH NINE POINTS. 


SUMN=179 e#PN(5)4+135e%(PN(G)+PN(6) )+300e%(PN(3)+PN(7)) 
15 50% (PN(2)+PN(8)) +15 0% (PN(1L)+PN(G)) 
DATAS(1)=SUMN/42940 

GOTO 55 


FOURTH AND FIFTH ORDER WITH ELEVEN POINTSe 


SUMN= 143 0*PN(6)+1200*(PN(5)+PN(7) 1+600#(PN(4)+PN(8)) 
1=100%(PN(3)4+PN(9) )=45e%(PN(2)+PN(10))4+18e*(PN(1)+ 


1PN(11)) 
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APPENDIX=I1I1 8 
PROGRAM 'SMOTH! 


_ DATAS(1)=SUMN/429.0 
Bora 55 


FOURTH AND FIFTH ORDER WITH THIRTEEN POINTS« 


SUMN=677¢*PN(7)4+6006%(PN(6)+PN(8))+390. eee Sale 
1110.%(PIN(4)4+PN (10) )=1600#(PN(3)4PN(11) 1198. * 
L(PN(2)+PN(12) )4+1106%(PN(1)+PN(13)) 
DATAS(1)=SUMN/2431.40 

CONTINUE 

CONTINUE 

WRITE(IFLW'IR)DATAS 

IRR=IR+1 

READ( IFLR! IRR)DATAR 

CONTINUE 

CONTINUE 


INCREMENT FILE NUMBERS FOR MULTIPLE FILE SMOOTHING IF 
REQUIREDes 


IFLR=IFLR+1 
IFLW=IFLW+1 
CONTINUE 

GOTO( 14915) sLFLAG 


RESET LAST RECORD INDICATORs 
GOTO 1000 


mane LINK (CHIEF) 
END 
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APPENDIX=III 1 
PROGRAM 'KLTLY! 


PROGRAM 'KLTLY' 


eS ee ES ee ee ey SE el ee ees es es ee 
OS ae ey Oe a ae Oey LO NY A SO OO me ees eS eS Me ee ee -_ 
_ 


OS ees Re ON eee ne EN le NS oe a ee ee ss pom, =~ ~< eo on on od 
— A Aen as Le A le NS ee ee Ne Ae NE ee ene ene ieee ee ee ee ~<— ew ee —_ 


PURPOSE 


TO CALCULATE THE FOURIER TRANSFORM OF TIME 
DOMAIN INPUT AND OUTPUT PULSE DATA USING THE 
COOLEY=TUKEY FAST FOURIER TRANSFORM TECHNIQUEe 


PARAMETERS ENTERED VIA DEYBOARD 


IFLX = FILE NOe FOR INPUT PULSE DATA (TIME). 
IFLY FILE NOw FOR OUTPUT PULSE DATA (TIME). 
IFLRI = FILE NOw FOR REAL PART OF TRANSFORM 

OF INPUT PULSE (FREQe). 

IFLII = FILE NOs FOR IMAGe PART OF TRANSFORM OF 
INPUT PULSE (FREQe). 

IFLRO = FILE NO«w FOR REAL PART OF TRANSFORM OF 
OUTPUT PULSE (FREQe)« 

IFLIO = FILE NOs FOR IMAGe PART OF TRANSFORM OF 
OUTPUT PULSE (FREQe). 

N - NO» OF TIME DOMAIN POINTS USED IN 
TRANSFORM (MUST=A POWER OF 2). 

| =POWER OF 2 WHICH YIELDS N (2**NM=N) 
RATE = =THE PULSE DATA SAMPLE RATE 
(POINTS/SECOND) e 

IRASS = =NOe OF RECORDS OF TIME DATA WHICH 

WILL BE USED TO DETERMINE THE STEADY 
STATE BEFORE PULSE OCCURED. 


RESTRICTIONS 


de ALL FILE NUMBERS SPECIFIED ABOVC SHOULD SE 
STFFEREN Tis 

2« N MUST EQUAL A POWER OF 2e 

38 THE MINIMUM FREQUENCY VALUE WHICH MAY BE 
DETERMINED IS A FUNCTION OF 'N! AND 'DT'e 
A LOWER MINIMUM IS ACHIEVED BY INCREASING 
THE MAGNITUDE OF EITHER OF THESE VARIABLESe 


%* TABLE OF FUNCTION OF VARIABLE NAMES ** 


BPE VGOWererar eye) CY VCO AAO OVA ANOKA A OA ODN OOOO AAO AOON AOA aA 
zs 
= 
I 


VARIABLES IN THE SUBROUTINE ARGUMENT LISTS WHICH ARE 
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APPENDIX=I11 Fs 
PROGRAM 'KLTLY! 


NOT EXPLAINED IN THIS LISTING ARE COVERED IN THAT 
OF THE APPROPRIATE SUBROUTINE. 


THE FOLLOWING 6 VARIABLES APPLY TO THE COOLEY=TUKEY 
TRANSFORM 'TNFRM!== 


IX=THE STORAGE LOCATION ADDRESS AS ESTABLISHED IN 
SUBROUTINE 'TNFRM'.e 


IXR=THE BIT REVERSED STORAGE LOCATION ADDRESS AS 
DETERMINED BY THE BIT REVERSAL ASSEMBLY LANGUAGE 
SUBROUTINE 'REVER'. 


AR=REAL NUMBER INPUT = OUTPUT ARRAY (DIMENSION N)e 
AT=IMAGe NUMBER INPUT = OUTPUT ARRAY (DIMENSION N)e 


INVels TRANSFORM CALCULATEDs =2s INVERSE TRANSFORM 
CALCULATED. 


INP=1 REAL INPUT DATA ONLYs =2 COMPLEX INPUT DATAe 


LUR=LOGICAL UNIT NOs FOR TYPEWRITER INPUTe 
LUW=LOGICAL UNIT NOe FOR TYPEWRITER OUTPUT. 
NPPR=NOe OF POINTS PER RECORD IN DISK FILESe 


IFLAG=1 FOR ANALYSIS OF OUTPUT DATAs =2s FOR ANALYSIS 
OF INPUT DATAe 


NRECW=NOe OF RECORDS OF FOURIER TRANSFORM RESULTS. 


KL IS SUBSCRIPT FOR LAST LOCATION FROM WHICH A RECORD 
OF DATA IS CHOOSEN FOR STORAGE ON DISKe 


KF IS SUBSCRIPT FOR FIRST LOCATION FROM WHICH A 
RECORD OF DATA IS CHOSEN FOR STORAGE ON DISKe 


DEFINE FILE 51(649809UsU0) 952(64s809UsI0)» 
153(649809UsJ0) 954(649809U 20) 955164980 9U9U0)» 
156 (649809Usd0) 957(649809U 240) 958164980 9U 940) 

COMMON NoNMoIXsITXR9AR( 1040) sAT (1040) sINV9 INP 
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APPENDIX=I 11 3 
PROGRAM 'KLTLY! 
COMMON LURsLUWsTFLXsIFLYsIFLRIoIFLII»IFLROsIFLIOsRATE 
¢ INITIALIZE PARAMETERS. | 
LUR=1 
LUW=2 
INV=]1 


INP=1 
NPPR=40 


C WRITE OUT PROGRAM IDENTIFICATION. 


WRITE (LUWs5555) 
5555 FORMAT('THIS IS FOURIER TRANSFORM ROUTINE@==KLTLY!) 


C WRITE OUT DATA ENTRY INSTRUCTIONS e 
WRITE (LUW 910) 
10 FORMATC'ENTERsIFLXsIFLYsIFLRI sIFLIIsIFLROsIFLIOsNo's 
1'NMsRATEsIRASS' ) 


C GALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
C ENTRY e 


CALL FFINP(LURs1lOsOsIFLXs0eTFLYsOsTIFLRI sOeTFLII 909 
LIFLROsOsIFLIOsGsNsOsNMols RATE s09TRASSsTEROR) 


C SET UP ANALYSIS OF OUTPUT DATAs 


IFLAG=1 
c CALL SUBROUTINE TO INITIALIZE PARAMETERS AND DATAc 


CALL INITL(IFLAGoIFL29IFL3»NRECsTRASS) 


C CALL COOLEY=TUKEY SUBROUTINE TO OBTAIN REAL AND 
C IMAGINARY PARTS OF FOURTER TRANSFORMe 


£5 CALL TNFRM 


C WRITE ON DISK THE REAL AND IMAGINARY COMPONENTS OF TA 
C COMPLEX NUMBERS OF THE TRANSFORMe 


NRECW=NREC@IRASS 

KL=0 

DO 13 IRW=1lsNRECW 

KF=KL+1 

KL=KL+NPPR 

WRITECIFL2'IRW) (AR(LL) sLL=KF es KL) 
WRITE(IFL3'IRW) (AI(LL) sLL=KF sKL) 
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APPENDIX=III 4 
PROGRAM 'KLTLY! 

CONTINUE 

DETERMINE WHETHER INPUT DATA HAS BEEN ANALYSEDe 


y IF (IFLAG=1) 22922933 ‘etded 
4 IF LAG=2 


, Ser UP ANALYSIS OF INPUT DATAs 

i oa 
CALL INITLOIFLAGsIFL29IFL3 sNRECsIRASS) 

GOTO 15 

feet LINK (CHIEF) 

END 
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APPENDIX=I1I1 1 
SUBROUTINE "INITL! 


BeBROUTINE 'INITL! 


CHHKEE KKK KH HEHE HH HK KH HHI IE IE IE IE HE TEE IE IE IE IE IE IE BE SE SE SE IE IE SE IE HE IE 4 96 46-98 96 96 96 


C ** SUBROUTINE INITL ¥# 


CHR RAK HHH HH KKH HH HIE HH IEE HEHE SE HEHE HE IEE IE HE SE IE FE HEE IE SE IE 96 96 6 96 SE JE SE 96 96 96 96 98 38 


SUBROUTINE 'INITL' CALCULATES THE STEADY STATEs 
SUBTRACTS THE STEADY STATE FROM THE PULSE DATAs 


CALCULATES THE AREA UNDER THE INPUT PULSE» AND 


DETERMINES THE ERROR OF CLOSURE FOR BOTH THE INPUT 
AND OUTPUT PULSESe 


** TABLE OF FUNCTION OF VARIABLE NAMES ** 
HEME AE HEHE HE HEHE HE HE IE HE HE HE HE IE HE He HE HEE HEHE HE HEHE HE HIE HE IE IE FE IE IE HE IE HE IE HE IE IE SE IE IE IE SE FE SEE SE HE FE IE IE HE 5% 


VARIABLES IN COMMON AND IN THE ARGUMENT LIST WHICH 
ARE NOT DESCRIBED IN THIS LISTING ARE DESCRIBED IN 
THAT OF THE MAINLINE®s 


SUM=SVALUE OF THE STEADY STATEe6 


NREC=TOTAL NOe OF RECORDS OF TIME DATA USED IN 
DETERMINING STEADY STATE AND FOURIER TRANSFORMe 


DT=INCREMENT BETWEEN TIME DATA POINTS (SECe)e 
IFL1=NOe OF FILE CONTAINING PULSE DATAe 

IFL2=NO0 OF FILE CONTAINING REAL PART OF TRANSFORMe 
IFLZ=NO0e« OF FILE CONTAINING IMAGe PART OF TRANSFORMe 


KL IS SUBSCRIPT FOR LAST LOCATION INTO WHICH A RECORD 
OF TIME DATA IS READe 


KF IS SUBSCRIPT FOR FIRST LOCATION INTO WHICH A 
RECORD OF TIME DATA IS READes 


NAVE=NOcoe OF TIME DATA POINTS USED TO DETERMINE STEADY 
STATEe 


IRTNF=NOe OF FIRST RECORD OF TIME DATA USED IN 
FOURIER TRANSFORMe 


NECL IS SUBSCRIPT OF THE LOCATION WHERE ERROR OF 
CLOSURE CALCULATIONS BEGINe 


NN IS SUBSCRIPT FOR THE LOCATION OF THE 2ND LAST Time 
POINT USED IN TRANSFORMe 


SEGCtt nor Ofer ty ey OY EV OXVOCVELONOAAOAOO ROO NON AAA OO OA OO OA AANA A 
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APPENDIX=II1 2 
SUBROUTINE 'INITL! 


e 
C N4 IS SUBSCRIPT FOR THE LOCATION OF THE 3RD LAST 
C TIME POINT USED IN TRANSFORM, 
& 
C N2 1S SUBSCRIPT FOR THE LOCATION OF THE 4TH LAST Time 
Cc POINT USED IN TRANSFORMe 
C 
C 
CH HE FE HE IE HE HE HEHE IE IE HE HE IE HE HE IE HE I HE TE HE IE IE IE IE IESE IE IE IE IE IE SE SE JE IE HE IE IE SE 96 2K 3 3 5K IE 2K 3 56 3 46 46 36 46 26 
G 
C 
SUBROUTINE INITL(IFLAGsIFL29IFL3 sNRECsIRASS) 
COMMON NoNMoIXs IXRsAR(1040) sAI (1040) sINVo INP 
COMMON LURsLUWsTFLXsIFLYsIFLRIsIFLIIsIFLRO»sIFLIOsRATE 
NPPR=40 
SUM=0 e0 
C CALCULATE NOe OF RECORDS OF TIME DOMAIN DATA USED 
C CONSIDERING THE DATA USED TO CALCULATE STEADY STATE 
C WILL NOT BE USED IN FOURIER TRANSFORM. 
NRECEN/NPPR+14+IRASS 
DT=leO/RATE 
C DETERMINE IF INPUT OR OUTPUT DATA IS BEING ANALYSEDe 
IPPs iFLAG=1) LTllsllisli2 
= SET FILE NOSe FOR OUTPUT DATAe 
til TFLIsIPFLyY 
IFL2=IFLRO 
on) Oe oe i 
SOTO 17 
Cc SET FILE NOSe FOR INPUT DATAs 
woe IFLI=IFLX 
IFL2Z=IFLRI 
IFL3=IFLII 
7 KL=0 
C READ TIME DOMAIN DATA FROM DISK TO CALCULATE STEACY 
X STATE.« 


DO 9 IRR=1»sIRASS 

KF=KL+1 

KL=KF+NPPR=1 

READ(IFLI'IRR) (AR(LL) sLL=KF9KL) 
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APPENDIX=I11 
SUBROUTINE 'INITL! 


CONTINUE 


BEGIN CALCULATION OF STEADY STATEe 


NAVE=IRASS*NPPR 
DO 8 I=lsNAVE 


SUM 'NAVE' STEADY STATE VALUES. 


SUM=SUM+AR(1) 
CONTINUE 


AVERAGE SUM TO OBTAIN STEADY STATE. 


SUM=SUM/NAVE 


DETERMINE IF STEADY STATE APPLIES TO OUTPUT OR INPUTe 


IF(IFLAG=1)19919%20 
WRITE OUT VALUE OF STEADY STATE FOR OUTPUT. 


WRITE(LUWs21) SUM 
FORMAT('STEADY STATE OUTPUT=! 9F10e5) 
BOTO. 22 


WRITE OUT VALUE OF STEADY STATE FOR INPUT. 


WRITE(LUWs23) SUM 
FORMAT('STEADY STATE INPUT=! 9F10e5) 


READ THE TIME DOMAIN DATA TO BE USED IN FOURTER 
TRANSFORMe 


KL=0 

IRTNF=IRASS+1 

DO 11 IRR=IRTNFsNREC 

KF=KL+1 

KL=KF+NPPR=1 
READ(IFL1!' IRR) (AR(LL) sLL=KF KL) 
CONTINUE 


SUBTRACT THE STEADY STATE FROM ALL THE VALUES TO 
OBTAIN A CLOSED PULSEs 


BO 12 T=19N 
AR(1)=AR(1)-SUM 
CONTINUE 


WRITE OUT ERROR OF CLOSURE EVERY 3RD POINT IN THE 
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APPENDIX=I1I “ 
SUBROUTINE 'INITL! 


LAST RECORD OF TIME DOMAIN DATAc 
HH 


DETERMINE IF INPUT OR OUTPUT DATA IS BEING ANALYSEDe 


Fit ia 


BEAMPUCAG=$1) 27527928 
me WRITE (LUW 924) 
24 FORMAT( TERROR OF CLOSURE ON OUTPUT DATA!) 
GOTO30 
28 WRITE (LUWs31) 
B1 FORMAT('ERROR OF CLOSURE ON INPUT DATA’) 
30 NECLE=N“NPPR+1 


WRITE OUT ERROR OF CLOSURE. 

HH 
SINCE STEADY STATE WAS SUBTRACTED ABOVEs THE VALUES OF 
"AR' AT THE END OF THE DATA SET REPRESENT THE ERROR OF 
CLOSURE « 


OVOALY CVA 


DO 25 I=NECL9No3 
WRITE(LUWs26) AR(T) 

26 FORMAT (1X 9F 10-5) 

25 CONTINUE 
IF (IFLAG=1) 10691063105 


CALCULATE THE AREA UNDER THE INPUT CURVE USING 
SIMPSON'S RULEs 


SINCE 'N' IS A POWER OF 2 IT WILL ALWAYS BE AN EVEN 
NUMBER» THEREFORE THERE WILL ALWAYS BE AN ODD NUMBER 
OF SUBINTERVALSe TO OBTAIN THE EVEN NOew NECESSARY 
FOR SIMPSON'S RULE» THE LAST DATA POINT IS NEGLECTEDe 
FOR A CLOSED PULSE THIS VALUE wILL BE ZERO SO LITTLE 
ERROR WILL OCCUR IN THE ERROR CALCULATIONe 


rn cerry emo 


105 NN=N=1 


c SET AREA EQUAL TO SUM OF FIRST AND LAST POINT 
C CONSIDERED. 
AREA=AR(1)+AR(NN) 
NG=NN=1 
C MULTIPLY EVERY 2ND POINT BY 4 STARTING WITH THE 2ND 
C POINT UP TO 2ND LAST POINT CONSIDEREDe 


DO 100 I1=2sN4s2 

AREA=AREAtAR(1)*400 
100 CONTINUE 

N2=NN=2 
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APPENDIAWI TI 
SUBROUTINE 'INITL! 


c MULTIPLY EVERY 2ND POINT BY 2 STARTING WITH THE 
C 3RD POINT UP TO 3RD LAST POINT CONSIDERED. 


DO 101 I=3sN2s2 
AREA=AREA+AR(1)*200 
101 CONTINUE 


C CALCULATE THE TOTAL AREAs 


AREA=AREA#DT/360 


C #% 
is WRITE OUT THE AREA UNDER THE INPUT CURVEs 


WRITE (LUW:s102) AREA 
102 FORMAT('AREA UNDER INPUT CURVE=' 9F10¢5) 
106 RETURN 

END 
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COLLEY-TUKEY TRANSFORM 
AS WRITTEN BY 
TRINITY UNIVERSITY 


COMPUTER CENTER 


The FORTRAN Subroutine TNFRM uses two two-point transforms plus 
a N/4 point transform to decrease computation time of a discrete Fourier 
transform. To conserve space the intermediate and final values calculated 
use the input area, thus, maximizing use of storage. 
Parameters of the subroutine are: 
N - the number of data points which must be a power of 2. 
NM - the exponent of 2, i.e., N=2NM 
AR(I) - the real input and output array, which has dimensions of N 
AI(i) - which may be imaginary input but is always theimaginary output 
array 
INV - if = 1, it indicates real input data only; if = 2, it) indicatés 
complex input only 
These parameters must be established in the main program before 
the subroutine is called. Two other parameters which appear in common 
are IX and IXR which are the storage location address and the bit reversed © 
storage location address. IXR is determined by the bit reversal assembly 
language subroutine REVER. 
The power density is computed by taking the transform of the data 
and multiplying the transform by its complex conjugate and dividing by 
1/DT, where DT is the time between samples. The user must put in his own 


print and format statements 
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The A array wi ‘ ee eee Peete , 
\ array will contain the frequencies which correspond to the 


transformed points 1 to N in correct order. ‘The user should note that 


points of the transform beyond F (i) = 1/2DT will not be valid because 
of the sampling theorem, i.e., the input data cannot contain significant 
information about Fourier components with periods less than 2DT, or no 
frequencies larger than 1/2DT. This gives you approximately half the 
number of transform points as data points. Note that the rest of the 
array should not be deleted, for if the autocorrelation or cross- 
correlation is desired, the whole array must be used when the inverse is 
taken. 

The autocorrelation function is computed by taking the inverse 
transform of the power density and normalizing the result. The output is 
in the arrays AR (I) and AI (I) real and imaginary, respectively. The 
results may be printed out where indicated in the listing attached. 

Times for computation: Samples ae as follows: 

Meee transform tor 512 points: 20 secs. 


b. Transform for 1024 points: 46 secs. 
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APPENDIX=III 1 
SUBROUTINE 'TNFRM! 
SUBROUTINE 'TNFRM! 
CHK EKA HH HH HEE HH HIE HE IIE HE IE HE IEE IE IEE SE IE TE IE SE IE IE SE IE 5G IE IE IE IE IE IE IE 96 3 2 9G HK 


S ** SUBROUTINE TNFRM %*+# 
CH HEH HEHE EH HEH HH HH IH EH HEHEHE HEHE TE HE HEHE HE FE IE HE HEE IE IE SE IE IE IE IE TE SE SE IE IE 3 9E IE SE 96 96 96 2 3 26 


c 
C SUBROUTINE 'TNFRM! CALCULATES THE FOURIER TRANSFORM 
C USING THE COOLEY=TUKEY TRANSFORM AS WRITTEN BY 
a TRINITY UNIVERSITY COMPUTER CENTER. 
c 
C 
€ #* GENERAL COMMENTS ** 
CHR HHH HH HH HH IEE HE HE HHH EI IE FE IE HE FE KE ICH EH HE IE HEIL IE HE IE HE HE IE IE SE IE IE SE IESE HE HE HE HE HE 
c 
C THIS LISTING FOR 'TNFRM' HAS BEEN USED AS RECIEVED 
a WITHOUT MODIFICATION BY THE THE AUTHOR OF THIS 
. THEST Se 
C 
. 
CHR HHH HEHEHE HEHE HEHE HIE HH EH HHH HH HE IH HH HH HEHE HEH 
C 
. 
SUBROUTINE TNFRM 
DIMENSION ACOS(257) 
COMMON NoNMoIXe9ITXRsAR(1040) sAI( 1040) sINVo INP 
COMMON LURsLUWsIFLXsIFLYsIFLRIsIFLIIsIFLROsIFLIOsRATE 
NX1=N/2 
NX2=NX1+1 
NX3=N/4 
NX4=NX341 
PI12=6e2831853072 
DO 3 IT=lseNx4 
IP=I-1 
ACOS(I)=COS (PI2*IP/N) 
3 CONTINUE 
C PERFORM FIRST TWO POINT TRANSFORMe 
C GO TO 40 IF INPUT DATA COMPLEXe 


IF(INP=2)309 409 30 
30 DO 4 J=ElsNXlol 
NXOF=UtNXK1 
ARQ = AR(J) 
AR( JU) =AR(U)+AR(NXO) 
AR(NXO)=ARQ*AR(NXO) 
CONTINUE 
GO TO 56 
60:50 ida" ls, NAL 
NXO=J+NX1 
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APPENDIX=III 


ARQ=AR (JU) 
AR(J) =AR( J) +AR(NXO) 
AR(NXO)=ARQ=AR(NXO) 

AIQ = Ally) 

AI(J) = AI(J) + AI (NXO) 
AIT(NXO) = AIQ = AI(NXO) 
CONTINUE 

CONTINUE 

DO 6 L=2sNMol 

NL=NM=L 

NX=2** (NL) 

NZ=NX+NX 

NNS=N@NZ4+1 

DO 7 K=lsNNsNZ2 

IS=K~-1 

IX=1S/NX 


CALL SUBROUTINE FOR BIT REVERSAL 


CALL REVER 
IR=IXR+1 

IFC IXR@NX3)99998 

JHETRWNX3 

JIG=ENX2=IXR 
=-ACOS(UG) 

D=ACOS(JH) 

GO TO 10 

JFRENX4=IXR 

C=ACOS(IR) 

D=ACOS (JF) 

GO TO 10 

IFC INV"2)239 229 23 

D==D 

CONTINUE 

DO 11 M=ls NXs l 

NJ=IS+M 

NXJ=NU+NX 

AIQ=AI (NJ) 

ARQ=AR (NJ) 

IFC INP=2) 659 139 65 
IF(L=2) 139 12s 13 


CONTINUE 
AR( NY) = AR(NXJ)*C + ARC NJ) 
AI( NJ) = AR(NXU) *D 


AR(NXJ)="AR(NU) + ARQ + ARQ 
AI(NXJ) =“AI (NJ) 


GO TO 14 
AR(NU) = AR(NXU)#C = AIT(NXJ)#D + AR(NJ) 


AL(NU)=AR(NXU)*D + AL(NXU)*C + AI (NJ) 
AR(NXJ)=*AR(NU) FARQtARQ 


S 


L1I=xIGQU39SA . 
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| APPENDIX=I11 
SUBROUTINE 'TNFRM! 


AT(NXJ) = =AT(NU) + AIQ + AIQ 


CONTINUE 


CONTINUE 


CONTINUE 


CONTINUE 
DO 1 I=l9sN 
IX=I-1 


CALL SUBROUTINE FOR BIT REVERSAL 


CALL REVER 
IXXR=IXR+1 

IFC IXXR=1I)1919101 
CONTINUE 
ARQ#AR(IXXR) 
AR(IXXR)=AR(I) 
AR( 1) =ARQ 
AIQ=AI(IXXR) 
AI(IXXR)I#AI (1) 
AI(1)=AIQ 
CONTINUE 
IF(INV=2) 70366970 
PD=1l1e0O/N 

DO 70 I=l»sN 

AR( 1) ARC 1) *PD 
AI( 1) =AI( 1) *POD 
CONTINUE 

RETURN 

END 
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APPENDIX=hb1 
* SUBROUTINE REVER * 










fey ewe 
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SUBROUTINE REVER * 
HHH AH HH HIE IE HEH HEH HH IE IE HE HE SE IEE IE IE SE HE IE EE HE IE IE IE AE IE IE IE IE IE IE HE 96 GE SEE 3 4 HE HE 


* 'REVER' CARRIES OUT THE BIT REVERSAL OPERATION 
* REQUIRED BY SUBROUTINE 'TNFERM'. 

* IT WAS USED AS SUPPLIED BY THE TRINITY 

* UNIVERSITY COMPUTER CENTERe 


eR HH KEK HK KH HHH KK IEE KE HH HEE SE IE HEE EAE FE SE IE IE SE IE SE SE IE IE SE IE IE IEE HE 9G 96 4E 


ENT REVER 
REVER DC 0 
LDX 11 /FFFE LOAD XR1 WITH NM 
Sut 32 CLEAR A AND Q@ REGISTERS 
STO REVRS 
LO LL ./fFFD LOAD bx 
; STO NUMBR STORE VALUE TO BE REVERSED 
‘SHIFT LD NUMBR 
. SRT 1 SHIFT A AND Q RIGHT ONE 
STO NUMBR 
LD REVRS LOAD REVERSE SUM INTO A 
ol 1 SHIFT<O CEPT “ha OsAweyY ONE 
STO REVRS 
MDX 1-1 DECREMENT XR1 
MDX SHIFT 


STO L /FFFC STORE REVERSED NO IN IXR 
Bsc I "REVER RETURN 


NUMBR DC eal 
REVRS DC Hm 3 
END 
END 
of * 
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PROGRAM 'FREQ! 


LEREG? 


ao ee ee ee ee ae FR amc a Sane ea as ns tyne cS ep cn m6 GS Sainte sp Jim sein SU a A “lini wont vens- dens! ones \tomn ance tes 
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** PROGRAM FREQ ** 


Oe ee ee ee 
cm Lh hem kth ne ny eh Mm SN am ints EN nh wen AA em itl MN A SiN tm) Alb AND OUD emt) SE Shem ibn GOMES Meme UND Mees tte emme Antsh come 


PURPOSE 


le TO CALCULATE THE FOURIER TRANSFORM OF TIME 
DOMAIN INPUT AND OUTPUT PULSE DATA USING THE 
TRAPEZOIDAL OR FILON'S QUADRATURE TO EVALUATE 
THE TRIGONOMETRIC INTEGRALS AsBsC AND De 

THE VALUES OF THESE INTEGRALS REPRESENT THE REAL 
AND IMAGINARY COMPONENTS OF THE TRANSFORMe 


2e TO COMBINE THE RESULTS OF THE TRANSFORMS INTO 
AN AMPLITUDE RATIO AND PHASE LAG SUITABLE FOR 
PLOTTING A FREQUENCY RESPONSE DIAGRAMe 


PARAMETERS ENTERED VIA KEYBOARD 


IFLX = FILE NOe FOR INPUT PULSE DATAs 
IFLY = FILE NOe FOR OUTPUT PULSE DATAs 
IFLA = FILE NOe FOR VECTOR Aco 
IFLB FILE NOs FOR VECTOR Be 


IFLC = FILE NOw FOR VECTOR Ceo 

IFLD = FILE NOe FOR VECTOR De 

IFLPX = FILE NOe FOR REDUCED INPUT PULSE DATAe 

IFLPY = FILE NOw FOR REDUCED OUTPUT PULSE DATAe 

FINT = INITIAL FREQUENCY (¢RAD/SEC).e 

FINC = FREQUENCY INCREMENT (RAD/SEC)e 

FLST = FINAL FREQUENCY (RAD/SEC)e 

ITORF = =ls TRAPEZOIDAL = =29 FILONe 

RATE = SAMPLE RATE USED FOR TIME DATA 
(POINTS/SEC) « 

IRASS = NOe OF RECORDS OF TIME DATA USED TO 
CALCULATE STEADY STATEe 

IRTNF = NOw OF RECORDS OF TIME DATA USED TO 
CALCULATE FOURIER TRANSFORMe 

IPICK = =l» REDUCE TIME DATA USED IN TRANSFORM 
BY USING ONLY EACH 'NPICK' POINT. 
=2 »DO NOT REDUCE TIME DATA FOR 
TRANSFORMe 

NPICK = =THE NOe OF POINTS SKIPPED FOR EACH 
POINT THAT IS USED WHEN IPICK#le 

SPECD = =O» FULL FREQe CONTENT CURVE CALCULATEDe 
=1» FREQeCONTENT CURVE NORMALIZEDe 

POWR = ls» FREQe CONTENT CURVE CALCULATEDe 
=2» SPECD=0» POWER SPECTRUM CALCULATED 
IN PLACE OF FREQe CONTENT CURVEe 


i bare = } 
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APPENDIX=I1I é 
PROGRAM 'FREQ! 


ISMTH = =l»s DETERMINE THE FREQe RESPONSE DIAGe 
WITHOUT SPECTRAL SMOOTHINGe 
=29 EXIT AFTER FOURIER TRANSFORM TO 
PERMIT SPECTRAL SMOOTHINGe 


RESTRICTIONS 


le ALL FILE NUMBERS SPECIFIED ABOVE SHOULD BE 
DIFFERENT. 


2e THE NOs OF FREQe POINTS WILL ALWAYS BE AN 
INTEGRAL MULTIPLE OF 'NPPR'« THE PROGRAM 
SELECTS THE MULTIPLE SO THAT ALL THE FREQs 
POINTS RANGING FROM 'FINT! TO 'FLST! ARE 
OBTAINED AND ANY EXTRA POINTS ARE CALCULATED 
IN INCREMENTS OF 'FINC' ABOVE THE VALUE OF 
‘FLST *s 


3e IF MORE THAN 200 TIME POINTS AND 120 FREQe 
POINTS ARE USED AND CALCULATED RESPECTIVELY» 
THE COMPUTING TIME BECOMES EXCESSIVE. 


#% GENERAL COMMENTS ** 


THE SUBROUTINE 'ABCD1' OR ABCD2' IS CALLED TO 
CALCULATE THE FOURIER TRANSFORM OF THE OUTPUT PULSE 
AND THEN THE INPUT PULSEe THE TRANSFORMATION IS 
ACHIEVED BY EVALUATING THE TRIGONOMETRIC INTEGRALS 
'A' AND 'B! (OUTPUT) THEN 'C' AND 'D! (INPUT) FOR 
VARIOUS VALUES OF FREQUENCYs THEREFORE 'A' BECOMES A 
VECTOR OF FREGQe DEPENDENT VALUES REPRESENTING THE 
REAL PART AND 'B' BECOMES A SIMILAR VECTOR 
REPRESENTING THE IMAGINARY PART OF THE TRANSFORM FOR 
THE OUTPUTe 'C' AND 'D' REPRESENT THE SAME VECTORS 
RESPECTIVELY FOR THE INPUT PULSE6 


VARIABLES IN THE SUBROUTINE ARGUMENT LISTS WHICH ARE 
NOT EXPLAINED IN THIS LISTING ARE COVERED IN THAT 


OF THE APPROPRIATE SUBROUTINE» 
LUR=LOGICAL UNIT NOe FOR TYPEWRITER INPUTe 


LUW=LOGICAL UNIT NOs FOR TYPEWRITER OUTPUT. 
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APPENDIX=I 11 3 
PROGRAM 'FREQ! 


NPPR=NOe OF POINTS PER RECORD IN DISK FILESe 
NREC=NO« OF RECORDS USED IN IFLX AND IFLYc 
DT=TIME INCREMENT BETWEEN DATA POINTS(SEC)e 


NPTNF=NO«e TIME POINTS USED IN FOURIER TRANSFORM IF 
THE DATA IS NOT REDUCED. 


NPASS#NOc TIME POINTS USED TO DETERMINE STEADY STATE« 
IRST=NO«e OF FIRST RECORD WHERE DATA REDUCTION BEGINSe« 


IFLR IS NOo FILE CONTAINING TIME DATA USED FOURTER 
TRANSFORMe 


IFLDR IS NOwe FILE CONTAINING TIME DATA FOR STEADY 
STATE CALCULATIONS e 


IFLAG INDICATES DATA TYPEs =1 OUTPUT» =2 INPUT. 


SUM IS THE STEADY STATE VALUE OF THE TIME VARIABLE 
BEFORE PULSE OCCURS. 


NRF=NOe OF RECORDS OF FREGe DATA CALCULATED. 


a ae es eee eS ee es ee cee ees ee eS oe ee tet eee a ee ee ee oe a oe ee om eo Si ee On oe a ee oe ee Se oe OS ER a ee ee Oe om ed ae ee ee 


DEFINE FILE 51(649809Usd0) 952(64980sUs U0) » 
153(649809UsJ0) 954164980 9U9I0) 955164980 9U 940) » 
156 (649809UsU0) 957(649809U9I0) 958 (649809U 950) 

COMMON LUR»LUW»NPPReDTsRATE®TRASS#IFLAG 

LUR=1] 

LUW=2 

NPPR=40 


WRITE OUT PROGRAM IDENTIFICATION. 


WRITE (LUW 936) ' 
36 FORMAT('THIS IS FOURTER TRANSFORM == FREQ!) 


WRITE OUT DATA ENTRY INSTRUCTIONS 


WRITE(LUW 910) 
10 MR RMAT I VENTER® IFLX*TFLYsIFLAsTFLBsIFLC + IFLDSIFLPXs'» 


L'IFLPY sFINT sFINCoFLST#ITORF sRATE! ) 
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APPENDIX=III 4 
PROGRAM 'FREQ! 


Bree eee cel SUBROUTINE TO GIVE FREE FORMAT ON DATA 
tf 


CALL FFINP(LUR913 90 eTFLXs0sIFLYsOsTFLAsOsIFLBsOsIFLCs 
LOsIFLDsOsTFLPX90 sIFLPYsloFINToloFINCsloFLST*OsITORF » 
L1lsRATEsIEROR) 

WRITE (LUW 937) 

FORMAT('ENTER IRASSsIRTNF oa IPICKsNPICKsSPECD »POWRS'y 
1'ISMTH') 

CALL FFINP(LURs7s0sITRASSsOsIRTNF sO0sIPICK9OsNPICK ols 
LSPECD 91 sPOWRsOsITSMTHsTEROR) 


INITIALIZE PARAMETERSe 


NREC=IRTNF+IRASS 
DT=1e0/RATE 
NP TNF=IRTNF*#NPPR 
NPASS=ITRASS*NPPR 
IRST#=IRASS+1 


WRITE OUT INFORMATION 

WRITE (LUWs33)NPASS 

FORMAT('NOe OF PTS USED TO CALCULATE S S='5915) 
WRITE (LUW 934) NPTNF 

FORMAT('NO TIME POINTS BEFORE REDUCTION='915) 
CALCULATE VECTORS AsB AND STEADY STATE (OUTPUT DATA) « 


*% 
IF IPICK=1 REDUCE NOw TIME DOMAIN DATA POINTSe 


IF(IPICK=1) 60960961 
CALL SUBROUTINE TO REDUCE NOe OF TIME POINTSe 
CALL REDPT(IFLYs IFLPYsIRTNF sNREC sNPICK 9 IRST) 


SET PARAMETERS TO CALCULATE FOURIER TRANSFORM OF 
REDUCED OUTPUT DATAs 


IFLR=IFLPY 
IFLDR=IFLY 


SET IFL1 AND IFL2 TO FILE NOSe FOR VECTORS A AND Be 
IFL1I=IFLA 


IFL2=IFLB 
GOTO 62 
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APPENDIX=I11 -) 
PROGRAM 'FREQ! 


C SET PARAMETERS TO CALCULATE FOURIER TRANSFORM OF 
C UNREDUCED OUTPUT DATAs 


61 IFLR=ITFLY 
IFLOR#IFLY 
IFLI=IFLA 
IFL2=I1FLB 

62 IFLAG=1 


c SELECT QUADRATURE FORMULA 
GOTO( 40 941) sITORF 
C TRAPEZOIDAL QUADRATURE .s 
40 CALL ABCDI(FINTsFINCosFLSTsIFLReITFLIsIFL2 9NREC a NRF 9 SUM 
LIPICKsIFLDR) 
GOTO 45 
C FILON'S QUADRATURE .s 


41 CALL ABCD2(FINTsFINCoFLST sIFLRoTFLIs IFL2»NRECo9NRF 9 SUM 
LIPICKsIFLDR) 


C WRITE STEADY STATE FOR OUTPUT. 


45 WRITE(LUWs1l1) SUM 
ll FORMAT('STEADY STATE OUTPUT=! 9F10e5) 


C CALCULATE VECTORS CD AND STEADY STATE (INPUT DATA) « 
: IF IPICK=1 REDUCE NOe OF DOMAIN DATA POINTSe 

IF ( IPICK=1) 63963964 

. CALL SUBROUTINE TO REDUCE TIME POINTSe 

63 CALL REDPT(IFLX»s1FLPX»IRTNF »NREC »NPICKsIRST) 


C SET PARAMETERS TO CALCULATE FOURTER TRANSFORM OF 
C REDUCED INPUT DATAe 


IFLR=IFLPX 
IFLDR=IFLX 
IFLI=IFLC 
IFL2=I1FLD 
GOTO 65 


Cc SET PARAMETERS TO CALCULATE FOURIER TRANSFORM OF 
C UNREDUCED INPUT DATAs 
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APPENDIX=I1I 6 
PROGRAM ‘FREQ! 


64 IFLR=IFLX 
IFLDR* 1FLX 
TPC ee Tre 
IFL2=I1FLD 

65 IFLAG=2 


SELECT QUADRATURE FORMULA. 
GOTO( 50951) sITORF 
TRAPEZOIDAL QUADRATURE. 
50 CALL ABCDII(FINTsFINCoFLSTsIFLRoTFLIs IFL2»NRECsNRF 9SUM9 
LIPICKsIFLDR) 
GOTO 55 
FILON'S QUADRATURE. 


51 CALL ABCD2(FINToFINCoFLSToIFLReoTFLIsIFL2sNREC»NRF 9SUMs 
LIPICKsIFLOR) 


WRITE STEADY STATE FOR INPUT 


2D WRITE(LUWs12) SUM 
12 FORMAT('STEADY STATE INPUT='F1005) 


RESET NREC AND DT TO VALUES APPLYING TO UNREDUCED 
DATAe 


NREC=IRASS*+IRTNF 
DT=DT/NPICK 


CALL SUBROUTINE TO CALCULATE THE AREA UNDER INPUT 
PULSE USING SIMPSON'S RULE®e 


CALL SUMS(IFLX»NRECsSUMSAREA) 
DETERMINE IF SPECTRAL SMOOTHING IS REQUIREDe 


GOTO(72973) sISMTH 


CALL SUBROUTINE TO CALCULATE AMPe RATIOsPHASE LAG AND 
FREQ@e CONTENT OR POWER SPECTRUM FROM DATA IN VECTORS 


AsBsCs AND De 


72 CALL ARPHFE( IFLA» IFLBs IFLCsIFLD»NRF sAREA oF INT 9FINC® 
1SPECD sPOWR) 

73 CALL LINK(CHIEF) 
END 
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APPENDIX=III 1 
SUBROUTINE 'REDpT! 


SUBROUTINE 'REDPT! 


CHR RRA RHR HH HH RIE HHH IE HE IE EEE IE IEE HE IE SE HE ESE JE HEA 36 36 96-96 98 38 9 


C ** SUBROUTINE REDPT #*# 
CHR HR HIE HH HII HE HHH TE HHH HEHE IE IE HE HE HE HEE IE IE IE IE HE IE AE IE SE IEE HE IE HEE HEE 96-96 26 98 96 


SUBROUTINE 'REDPT! REDUCES THE NOs OF TIME DOMAIN 
DATA POINTS USED IN THE FOURIER TRANSFORM BY 
EMPLOYING ONLY EVERY 'NPICK' POINT IN THE 


ORIGINAL DATAs THE SELECTED VALUES ARE STORED IN 
A SEPARATE DATA FILEe 


*#% TABLE OF FUNCTION OF VARIABLE NAMES ** 
FETE HEH HHH HEH HEHE HE HEE HE HH HE IE HE HE IE HE TE IE IEE HE HEE HE HE SE IE IEE HE HE IE TE HE HE IE IE IE HE HE HE HE HE TE HE 


VARIABLES IN COMMON AND IN THE ARGUMENT LIST WHICH 
ARE NOT DESCRIBED IN THIS LISTING ARE DESCRIBED IN 
THAT OF THE MAINLINEe 


IFLR IS THE FILE CONTAINING THE UNREDUCED DATAc 
IFLW=NOe OF FILE WHERE THE REDUCED DATA IS STORED. 
NREC=NOe OF RECORDS USED IN UNREDUCED DATA FILE. 


TRW=NOe OF RECORD IN DISK WRITE OPERATIONe AT THE END 
OF THE SUBROUTINE 'IRW' EQUALS THE TOTAL NOe OF 
RECORDS OF REDUCED DATAs 


NPICK EQUALS ONE MORE THAN THE NOe OF POINTS SKIPPED 
BETWEEN EACH POINT SELECTED TO MAKE UP THE REDUCED 
DATAe 


IRST=NOo OF FIRST RECORD OF UNREDUCED DATA READ 
FROM DISKe 


F IS THE DIMENSIONED VARIABLE INTO WHICH UNREDUCED 
DATA IS READe THE DIMENSION OF F IS SUFFICIENT TO 
ACCOMODATE THREE RECORDS FROM DISKe 


R IS THE DIMENSIONED VARIABLE INTO WHICH REDUCED 
DATA IS SAVEDe THE DIMENSION OF R IS SUFFICIENT TO 


ACCOMODATE ONE RECORD 


KFLAG IS A FLAG WHICH IS CHANGED FROM 1 TO 2 AFTER 
THE LAST RECORD OF UNREDUCED DATA HAS BEEN READ 
FROM DISK FILESe 


Peewee wise tt EYED OV CVO TIN HAHAAN AA HA AANA AHNnAA ARAN AO HA AA A 


IR3=NOe OF 3ND RECORD OF UNREDUCED DATA READ FROM 
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APPENDIX=II1 2 
SUBROUTINE 'REDPT! 


DISKe 
L 1S THE SUBSCRIPT OF THE REDUCED DATA IN COREe 


KF IS THE SUBSCRIPT FOR THE FIRST LOCATION INTO WHICH 
A RECORD OF DATA IS READe 


KL IS THE SUBSCRIPT FOR THE LAST LOCATION INTO WHICH A 
RECORD OF DATA IS READ. 


IR4 IS THE NOe OF THE FOURTH RECORD OF UNREDUCED DATA 
READ FROM DISKe 


NSHFT IS THE SUBSCRIPT FOR THE LAST LOCATION INTO 
WHICH THE MOST RECENT RECORD WAS READe ON SHIFTING 
UNREDUCED DATA TO THE START OF THE DIMENSIONs 'NSHFT! 
IS THE LOCATION OF THE LAST POINT SHIFTEDs. 


IS IS THE SUBSCRIPT OF FIRST UNREDUCED DATA POINT 
SHIFTED TO START OF DIMENSIONe 


KS IS SUBSCRIPT FOR THE LOCATIONS INTO WHICH THE 
SHIFTED DATA VALUES ARE READe 


HEHEHE REHM HHH K KKH KHKKKKKKKKHKKKKHKKKEKRKHHHKEKRKHEEK 


ANNKRABRALTNAOAANnDNAOODMODNDOO OO MOAOM 


SUBROUTINE REDPT(IFLReIFLWeIRTNF sIRWsNPICKsIRST) 
DIMENSION F(120) sR(40) 
COMMON LURsLUWsNPPRDT sRATEsTRASSsIFLAG 


C INITIALIZE PARAMETERSe 


KFLAG=1 
IR3=IRST+2 

L=0 

IRW=0 
NREC=FIRTNF+IRST@1 
KL=0 


C READ TwO RECORDS OF DATA FROM DISKe 


DO 5 IRR=IRSTsIR3 

KF=KL+l 

KL=KL+NPPR 

READ(IFLR'IRR) (FILL) »LL=KF sKL) 
5 CONTINUE 
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APPENDIX=II1 
SUBROUTINE 'REDPT! 


IR4=ITR3+1 


SET THE SUBSCRIPT OF THE LAST DATA POINT TO BE 
SHIFTED BEFORE READING IN A NEW RECORDe 


NSHFT=NPPR¥3 
DO 10 IRR#IR4GsNREC 


CHECK IF THERE IS ROOM IN 'F' FOR AN ADDITIONAL 
RECORD OF UNREDUCED DATAs IE HAS 'NSHFT' DRIFTED FAR 
ENOUGH AWAY FROM THE END OF THE DIMENSION FOR 'F! TO 


ALLOW SPACE FOR AN ADDITIONAL RECORDe THIS OCCURS WHEN 


"NPICK' IS A MULTIPLE OF 'NPPR'¢ 


IF (NSHF T=2*NPPR) 61942942 


CHECK IF ANOTHER RECORD OF UNREDUCED DATA SHOULD BE 
READ FROM DISKe 


IF (NREC=§IRR)659665966 

KS=NSHFT 

GOTO 46 

KFLAG=2 

SELECT DATA POINTS IN STEPS OF NPICK STARTING AT le 
DO 11 I=leNSHFT»NPICK 

IS=I+NPICK 

L=L+1 

R(L)=F(1) 

CHECK FOR A FULL RECORD OF SELECTED VALUESes 
IF(L=NPPR) 20921921 


CHECK IF THE FINAL RECORD OF UNREDUCED DATA HAS BEEN 
READe 


IF (KFLAG=1)23923911 
CHECK FOR ROOM TO READ IN A NEW RECORD OF DATA 


IF ( I=NPPR) 11911944 
IRW=IRW+1] 


WRITE A RECORD OF SELECTED DATA ON DISKe 


WRITECIFLW'IRWIR 
L=0 
CONTINUE 
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APPENDIX=I11 


SUBROUTINE 'REDPT! 
IF (KFLAG@1) 45945971 


KS=0 
GOTO 46 


SHIFT DATA TO START OF DIMENSION. 

KS=0 

SHIFT REMAINING DATA TO START OF DIMENSTIONe 
DO 30 K=ISsNSHFT 

KS=KS+1 


F(KS) =F (K) 
CONTINUE 


ADJUST THE SUBSCRIPT OF THE LAST DATA POINT SHIFTED 
SO THAT ONLY THE DATA FROM THE NEXT RECORD READ IS 
SHIFTED ON THE NEXT SHIFT OPERATIONe 


NSHFT=KS+NPPR 


DETERMINE IF ANOTHER FILE OF UNREDUCED DATA IS TO 
READe 


IF (NREC@IRR)40940941 


SET FLAG TO INDICATE THE FINAL RECORD OF UNREDUCED 
DATA HAS BEEN REACHED. 


KFLAG=2 


READ A NEW RECORD OF UNREDUCED DATA INTO LOCATIONS 
STARTING AT THE LOCATION IMMEDIATELY FOLLOWING THE 
LOCATION OF THE OLDEST DATA POINT IN CORE® 


KF=KS+1 
KL=NSHFT 
READ(IFLR'IRR) (F (LL) sLL=KF sKL) 


IF THE LAST RECORD HAS BEEN READ RETURN TO ANALYSE 
EACH POINT IN THAT RECORD BEFORE LEAVING THE 'IRR DO 
LOOP!t 


IF (KFLAG=1)10910942 
CONTINUE 


FILL THE REMAINDER OF THE FINAL RECORD OF REDUCED 
DATA WITH THE FINAL SELECTED VALUEs 


CHECK FOR AT LEAST 1/3 OF A RECORD OF PICKED VALUES 
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APPENDIX=I11 
SUBROUTINE 'REDPT! 
BEFORE FILLING THE REMAINDER. 
IF (L=NPPR/3)73972972 
IRW=ITRW+1 
L=l+1 
DO 75 I=L sNPPR 


R(T) SR( 1-1) 
CONTINUE 


WRITE THE FINAL RECORD OF SELECTED DATA ON DISKe 
WRITECIFLW'IRW)R 
WRITE NOsw OF RECORDS OF SELECTED DATAe 


WRITE (LUWs15) IRW 
FORMAT('NOe OF RECORDS OF PICKED DATA='913) 


MODIFY DT FOR REDUCED NOe OF DATA POINTS. 
DT=1leO/RATE*XNPICK 

WRITE OUT THE MODIFIED VALUE OF DTe 

WRITE (LUWs16)DT 

FORMAT('TIME INC eo! sF7e4a1X9'SEC') 


RETURN 
END 
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APPEND X= Igh 1 l 
SUBROUTINE 'ABCD1! 


SUBROUTINE 'ABCD1' 


CH HEE HE HE HH HEE HE IE IE IE HE HE OE 3 IE IE IE HE EE FE AG TE TE SE SE SE SE HE IE SE IE IE 94 FE IE IE 9K IE SE IE SE HE IE ME HEHE IE HE IE HE HE SE 


C 


** SUBROUTINE ABCD1 ** 


CE HE HE HE EE KE HE HE HE IE HE NE IE FE DE IE IE IE 6 9b FE HE FE IE IE IE FE MG FE IE SE SE 3b SE 26 3G SE SE 36 96 96 56 5E IE SE IE 9 96 96 36 9 


Anno AO AM 


NNANODNDANDNANNANNANNDNDNNDNDNDANANADNANAANAANANANANNDANAAN 


SUBROUTINE ABCD1 USES THE TRAPEZOIDAL QUADRATURE TO 
EVALUATE THE AsBsC AND D TRIGONOMETRIC INTEGRALS 
OF THE FOURTER TRANSFORM OVER A RANGE OF FREQUENCIESe 


** TABLE OF FUNCTION OF VARIBLE NAMES ** 


SEE HEH ETE HEHE IE HE TE EK IEE IE HE SE HE IE HE HE HE IEE IE IE HEHE HE HEE HEE IEE ETE MH HH IH HHH HH HHH HHH HK 


VARIABLES IN COMMON AND IN THE ARGUMENT LIST WHICH 
ARE NOT DESCRIBED IN THIS LISTING ARE DESCRIBED IN 
THAT OF THE MAINLINE 


X IS A DIMENSIONED VARIABLE INTO WHICH THE TIME DOMAIN 
PULSE DATA IS‘’READe 


A IS A DIMENSIONED VARIABLE IN WHICH THE REAL PART OF 
THE FOURIER TRANSFORM IS STORED (FREQe DATA). 


B IS A DIMENSIONED VARIABLE IN WHICH THE IMAGe PART OF 
THE FOURIER TRANS FORM IS STORED (FREQe DATA). 


IFLR=NO5o OF FILE CONTAINING THE TIME DOMAIN PULSE 
DATA USED (INPUT OR OUTPUT). 


IFL1=NO«e OF THE FILE WHERE THE VALUES OF THE COSINE 
PRODUCT INTEGRAL ARE TO BE STOREDe 


IFL2=NOe OF THE FILE WHERE THE VALUES OF THE SINE 
PRODUCT INTEGRAL ARE TO BE STOREDe 


NF=NOe OF FREQe POINTS CALCULATEDs IT MUST BE AN 
INTEGRAL MULTIPLE OF NPPRe 


NFR=NO5oe OF RECORDS OF FREQUENCY DATAs 
W=FREQUENCY (RAD/SEC) 

SUM=THE AVERAGE STEADY STATE OF OF TIME DATAs 
IRW=RECORD NUMBER IN DISK WRITE OPERATIONSe 


LRASS=NOse OF RECORDS USED TO CALCULATE STEADY STATE6 
IRR=RECORD NOe IN DISK READ OPERATIONS 
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APPENDIX=II1 a2 
SUBROUTINE 'ABCD1! 


KL IS SUBSCRIPT FOR LAST LOCATION INTO WHICH A RECORD 
OF DATA IS READes 


NRTNF=NOoe OF FIRST RECORD OF TIME DATA THAT IS TO BE 
USED IN FOURIER TRANSFORMe 


NT=TOTAL NOew OF TIME POINTS USED IN FOURIER TRANS 
Re IS LIKE KL BUT REFERS TO FIRST LOCATION. 


L*¥DT GIVES THE TOTAL TIME ASSOCIATED WITH EACH TIME 
DATA POINT. 


K IS THE SUBSCRIPT FOR THE RECORD OF FREQGe DATA IN 
CORE » 


SUMB IS AN INTERMEDIATE VALUE OF SINE INTEGRAL. 
SUMA IS AN INTERMEDIATE VALUE OF COSINE INTEGRAL e 


KEC 1S SUBSCRIPT OF LOCATION WHERE ERROR OF CLOSURE 
CALCULATIONS BEGINe 


ERCL=ERROR OF CLOSURE ON THE TAIL OF THE TIME PULSEe 


SE HE IE HE EE SE IE IESE FE 36 HE IE SE IE SE FE SE IE SE 9G FE IE IE IE IE NE FE IE IE SESE IE HEFL SE HEE HE HEH HHH HHH KKH EK 


AAONAANRAHNHAAARBNANANnAANnNHANN HH HAAN 


SUBROUTINE ABCDI1(FINToFINCSFLST9IFLRoITFLIsTIFL29NREC? 
INRF »SUMsIPICK es TFLDR) 
DIMENSIONX( 600) 9A(400) 9B( 400) 
COMMON LURsLUWeNPPReDT sRATEsIRASSsIFLAG 

C CALCULATE NOe OF FREQUENCY POINTS REQUIREDe 
NF=(FLST@FINT) /FINC+1 

« CALCULATE NOs OF RECORDS TO BE USED IN IFL1 AND IFL2e 


NRF=NF/NPPR+1 


C DETERMINE NOe OF FREQUENCY POINTS WHICH WILL BE 
¢ CALCULATED (INTEGER MULTIPLE OF NPPR)e 
NF =NPPR*NRF 


C WRITE NOw OF FREQUENCY POINTS CALCULATEDe 
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APPENDIX=I11 
SUBROUTINE 'ABCD1! 


WRITE (LUWs17) NEF 
FORMAT('NO OF PTS FREQ DATA CALCULATED#=! 915) 


SET INITIAL FREQUENCY. 

WHF INT 

SUM=060 

IRwW=0 

CALCULATE STEADY STATE. 

DO 9 IRR=lsIRASS 

READ A RECORD OF TIME DATA FROM DISKe 
READ (IFLDR'IRR) xX 

SUM THE VALUES OVER 'IRASS' RECORDSe 
DO 10 I=l»sNPPR 

SUM=SUM+X (1) 


CONTINUE 
CONTINUE 


AVERAGE SUM TO OBTAIN STEADY STATE. 


SUM=SUM/(NPPR#¥IRASS) 
KL=0 


CHECK IF TIME DATA HAS BEEN REDUCED OR NOTe 


IF( IPICK=1) 60960 961 
NRTNF=1 

NT=NREC*NPPR 

GOTO 62 
NRTNF=IRASS+1 
NT=NPPR*(NREC=IRASS) 


WRITE TOTAL NOs OF TIME POINTS USED IN TRANSFORMe 


WRITE (LUWs18)NT 
FORMAT('NO TIME POINTS USED AFTER PICK='915) 


READ ALL OF TIME DATA FROM DISKe 


DO 100 IRR=NRTNF »NREC 

KF=KL+1 

KL=KF+NPPR=1 
READ(IFLR'IRR) (X (LL) sLL&KF KL) 
CONTINUE 


g 

























Lbr=x rovaaaa 
'soD8at | 


raat ® VA fe! yy 7 I5 
(@le'SG3TAJSUDIAD ATAG 0384 dilailipiires Ys 


e¥ONSU03AF 4 
KOAGCLS =) oi 
Tat 
") ee 7 000 wi 


‘>tl Pay: * 

-aTaTe yoaaTe tis [ 
i [6° 

22anleLennt ei 


eX21Q0 MOAA ATAQ 3MIT FO QAODSA A GA 
ot 
x (AST RQIATD 


i eee 

e2CXOD3H *'22AnRT* ARSVO S3UJAV vt 
‘és A 

nade Let OL oO 

ra —— e 

3UN I THO 

aA we 18a 


e3TATS? YGART!?S VlATAO OT MU2 30 
(22AAT#AAGQVIN 


eTOV AO GIDVAIA H338 2AH ATAA mit st 

18+ 08e0a47 ; 

: ei 4ian08 

Lhe? eRe ee naqnesei =] 

So Av 

| 1) Geese 

‘eshne ean 

; i hd 

eMAOFSMAAT VWI QGBeuU eETHIOS amit 30 son JATO 
pa aSe 

Gr wi tye | aire selpate 


(@le'=x219 S3TIA G3eU aThie Own) TAN 


103 


102 


APPENDIX=I1I 4 
SUBROUTINE 'ABCD1! 


BEGIN EVALUATION OF TRIGONOMETRIC INTEGRALSe 
DO 102 K=l»sNF 


INITIALIZE PARAMETERS FOR EACH FREQUENCY e 


L=0 

SUMA=0¢0 

SUMB=0 00 

DO 103 JF=leNT 
SUMA=SUMA+(X(4U)=SUM)#*COS(W*L*DT) 
SUMB=SUMB+(X(U)=SUM) *SIN(W*L*DT) 
L=L+1] 

CONTINUE 


SET A AND B EQUAL THE VALUE OF INTEGRALS FOR ONE FREQe 


A(K) =SUMA*DT 
B(K)=SUMB*DT 


INCREMENT FREQUENCY. 


W=W+F INC 
CONTINUE 


WRITE THE VECTORS OF FREQUENCY DATA ON DISKe 


KL=0 
DO 105 IRW=1l NRF 


KF=KL+1 


KL=KF+NPPR=1 
WRITECIFLI'IRW) (ACLL) sLL=KF KL) 
WRITE(IFL2'IRW) (B(LL) sLLS=KFeKL) 
CONTINUE 


DETERMINE IF INPUT OR OUTPUT DATA WAS PROCESSEDs 


IF (IFLAG@1) 20592059206 

WRITE (LUW 9200) 

FORMAT('ERROR OF CLOSURE OUTPUT') 
GOTO 207 

WRITE (LUWs9201) 

FORMAT('ERROR OF CLOSURE INPUT!) 


CALCULATE THE ERROR OF CLOSURE FOR EVERY THIRD POINT 
IN THE LAST RECORD OF TIME DATA PROCESSEDe 


KEC=NT=NPPR+1 
DO 107 I=KSSeNT93 
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SUBROUTINE 'ABCD1! 
ERCL=X(1)=SUM 
WRITE ERROR OF CLOSURE. 


WRITE(LUWs 79) ERCL 
FORMAT (F105) 
CONTINUE 

RETURN 

END 
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APPENDIX=#I11 1 
SUBROUTINE 'ABCD2! 
SUBROUTINE 'ABCD2' 


C 
CHE HH HH HK IEE HEHE HE HE FE IE SE FE HE HEE HE IEE SE HEE HE HHH KH HHH HHH HHH SHH HHH HHH 


** SUBROUTINE ABCD2 ** 
CHK HHH HH HK IEE EH HHH HE HE HR HHH HHH HHH HH 


SUBROUTINE ABCD2 USES FILON'S QUADRATURE TO EVALUATE 
THE AsBsC AND D TRIGONOMETRIC INTEGRALS OF THE FOURTER 
TRANSFORM OVER A RANGE OF FREQUENCIES 


*#* GENERAL COMMENTS ** 
HEHEHE TE HEHE HE IE TENE HE HEE HE HEH HEH HE THEE HIE IE EH HEH HE HHH HH HH KKH HH 


THE ODD AND EVEN SUMS DEFINED IN THIS PROGRAM ARE THE 
REVERSE OF THOSE GIVEN IN THE REFERENCE FOR FILON'S 
QUADRATURE» BECAUSE THE FIRST SUBSCRIPT IN THIS 
PROGRAM IS 1 RATHER THAN Ov 


** TABLE OF FUNCTION OF VARIABLE NAMES ** 
HEHE SE IE IE HE IE IE IESE IE HE IE HE HEHE IE IE HE ETE IE IE HE HEE TEE EH HE TEI HEHEHE TE HE HHH HE MH HHH HHH HK 


AANA AHHAAHAOHOANAAOG 


VARIABLES IN COMMON AND IN THE ARGUMENT LIST WHICH 
ARE NOT DESCRIBED IN THIS LISTING ARE DESCRIBED IN 
THAT OF THE MAINLINE® 


X IS A DIMENSIONED VARIABLE INTO WHICH EACH RECORD OF 
TIME DOMAIN PULSE DATA IS READe 


A IS A DIMENSIONED VARIABLE IN WHICH EACH RECORD OF 
THE REAL PART OF THE FOURIER TRANSFORM IS STORED 
(FREQe DATA). 


B IS A DIMENSIONED VARIABLE IN WHICH EACH RECORD OF 
THE IMAGe PART OF THE FOURIER TRANSFORM IS STORED 
(FREQe DATA)e 


IFLR=NOe OF FILE CONTAINING THE TIME DOMAIN PULSE 
DATA USED (INPUT OR OUTPUT). 


IFL1=NO«e OF THE FILE WHERE THE VALUES OF THE COSINE 
PRODUCT INTEGRAL ARE TO BE STOREDe 


IFL2=NOe OF THE FILE WHERE THE VALUES OFo THESSG ING 
PRODUCT INTEGRAL ARE TO BE STORED. 


AN NDAD DNDN ADNNANANADANANDNDNDNANANAAN 


NF=NOe OF FREQe POINTS CALCULATED» IT MUST BE AN 
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APPENDIX=III 
SUBROUTINE 'ABCD2! 


INTEGRAL MULTIPLE OF NPPRe 

NFR=NO« OF RECORDS OF FREQUENCY DATAc 

W=FREQUENCY (RAD/SEC)e 

SUM=THE AVERAGE STEADY STATE OF OF TIME DATAs 
IRW=RECORD NUMBER IN DISK WRITE OPERATIONSe 
TRASS=NO5«e OF RECORDS USED TO CALCULATE STEADY STATE6s 
IRR=RECORD NOe IN DISK READ OPERATIONS « 

DOD SUM IMPLIES SUM OF POINTS 19395s——-=2N~-is 

EVEN SUM IMPLIES SUM OF POINTS 294969™="2Ne 

SUMEC IMPLIES THE EVEN SUM OF COSINE PRODUCT VALUESe 
SUMES IMPLIES THE EVEN SUM OF SINE PRODUCT VALUESe 
SUMOC IMPLIES THE ODD SUM OF COSINE PRODUCT VALUESe 
SUMOS IMPLIES THE ODD SUM OF SINE PRODUCT VALUESe 


L¥DT GIVES TOTAL THE TIME ASSOCIATED WITH EACH ODD 
TIME POINT. 


M¥DT GIVES THE TOTAL TIME ASSOCIATED WITH EACH EVEN 
TIME POINT. 


NRTNFETHE NOe OF THE FIRST RECORD OF TIME DATA USED 
FOURIER TRANSFORM CALCULATIONSe 


NR=NOe OF SECOND LAST RECORD OF TIME DATA USED IN 
FOURIER TRANSFORM CALCULATIONSe 


K 1S THE SUBSCRIPT FOR THE RECORD OF FREQUENCY DATA 
CURRENTLY IN COREe 


NP=LAST POINTsIN EACH RECORD OF TIME DATA» USED IN 
THE CALCULATION OF ODD SUMe 


NEPLR=LAST POINT OF TIME DATA USED IN CALCULATION OF 
EVEN SUMe 


FAC IS THE VALUE OF THE PRODUCT OF THE PIRST TIME 
POINT AND THE COSINE FUNCTIONe 
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APPENDIX=I11 3 
SUBROUTINE 'ABCD2! 


FAS IS THE VALUE OF THE PRODUCT OF THE FIRST TIME 
POINT AND THE SINE FUNCTIONe 


IRTNF=NOo OF 2ND RECeOF TIME DATA USED IN TFANSFORMe 


S04 iS THE VALUE OF THE PRODUCT OF THE LAST TIME 
POINT AND THE COSINE FUNCTIONs 


Poor lS eNMEsVALOE OF THE PRODUCT OF THE LAST TIME 
POINT AND THE SINE FUNCTIONe 


ALPs BET AND GAM DENOTE THE ALPHAsBETA AND GAMMA 
DEFINED IN THE REFERENCE FOR FILON'S QUADRATURE « 


ERCLeERROR OF CLOSURE ON THE TAIL OF THE TIME PULSEe 


HIE FE HE FE FE HE SE HE HE HE IE IE HK IE IE ESE HE IE HE EE SESE IESE SETH HHH MK HK HEM KKK KKHHHHKKHKH EH 


NAA AHAARAAR AA HAAAAHAAOAANG 


SUBROUTINE ABCD2(FINToFINCoFLSToIFLReIFLIsIFL2sNRECs 
INRF sSUMsIPICKsTIFLDR) 
DIMENSION X(40) 9A(40) 9B(40) 
COMMON LUResLUWsNPPReDT sRATEs TRASSsIFLAG 

C CALCULATE NOe OF FREQUENCY POINTS REQUIRED. 
NF=(FLST@=FINT) /FINC#+1 

C CALCULATE NOe OF RECORDS TO BE USED IN IFL1 AND IFL2-e 
NRF=NF/NPPR+1 


C DETERMINE NOs OF FREQe POINTS WHICH WILL BE CALCULATED 
C (INTEGER MULTIPLE OF NPPR) 


NF=NPPR*NRF 
C WRITE NOe OF FREGe POINTS CALCULATED. 
WRITE (LUWs17) NF 
17 FORMAT('NO OF PTS FREQ DATA CALCULATED='s15) 
NT=NPPR*¥NREC 


C WRITE TOTAL NOe OF TIME POINTS USED IN TRANSFORM. 


WRITE(LUW918)NT 
18 FORMAT('NOe OF TIME POINTS AFTER PICK='s15) 
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APPENDIX=I1I1 
SUBROUTINE 'ABCD2! 


INITIALIZE FREQUENCY. 

W=F INT 

SUM=0 20 

TRW=0 

CALCULATE STEADY STATE. 

DO 9 IRR#=1lsTRASS 

READ A RECORD OF TIME DATA FROM DISKe 
READ(IFLOR'IRR) X 

SUM THE VALUES OVER 'IRASS' RECORDS. 
DO 10 I#l»sNPPR 

SUM=SUM+X (1) 


CONTINUE 
CONTINUE 


AVERAGE SUM TO OBTAIN STEADY STATE«s 
SUM=SUM/ (NPPR*¥IRASS) 

CHECK IF TIME DATA HAS BEEN REDUCED OR NOTe 
IF(IPICK=1) 60960961 

INITIALIZE PARAMETERS FOR EVALUATION OF INTEGRALSe 
NRTNF=1 

GOTO 62 

NRTNF=IRASS+1 

NR=NREC@1 

K=0 

NP=NPPR=1 

NEPLRENPPR=2 

BEGIN EVALUATION OF TRIGONOMETERIC INTEGRALSs 
DO 15 KW#l»sNF 

INITIALIZE PARAMETERS FOR EACH FREQUENCY. 


SUMES=060 
SUMOS=0 00 
SUMEC=0 00 
SUMOC=0 «0 
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APPENDIX=I1I ) 
SUBROUTINE 'ABCD2! 


L=0Q 
M=1] 


READ FIRST RECORD OF TIME DATA USED IN TRANSFORMe 
READ(CIFLR'NRTNF) X 


any ally THE ODD SUM FOR THE FIRST RECORD OF TIME 
Ae 


DO 20 I[=lsNPs2 


CHECK FOR THE FIRST POINT IN ODD SUMe 


IF(Il=1) 30930931] 
SUMOC=(X(1)=SUM) COS (W#L*¥DT)/2¢0 
FAC=SUMOC 

SUMOS= (X(1)=SUM) *SIN(WHL*DT)/200 
FAS=SUMOS 

GOTO 21 

SUMOC=SUMOC+(X(1)=SUM) #COS(W#L*DT ) 
SUMOS=SUMOS+(X(1)-SUM)*SIN(W#L*DT ) 
L=L+2 

CONTINUE 


CALCULATE THE EVEN SUM FOR THE FIRST RECORD OF TIME 
DATAe 


DO 22 J=2sNPPR92 
SUMEC=SUMEC+(X(U)=SUM) #COS (WHM#DT ) 
SUMES=SUMES+(X(U)=SUM) *SIN(W*M*DT) 
M=M+2 

CONTINUE 


CONTINUE TO CALCULATE EVEN AND ODD SUMS FROM THE 2ND 
TO THE 2ND LAST RECORD OF TIME DATA USED IN TRANSFORMe 


IRTNFFNRTNF +1 
DO 25 IRR=IRTNFsNR 


READ A RECORD OF TIME DATAes 
READ(IFLR'IRR)X 

CALCULATE THE ODD SUM FOR THE RECORDe 
DO 26 I=lsNPs2 

SUMOC =SUMOC+ (X(1)=SUM) *COS (WeL*DT) 


SUMOS=SUMOS+(X(1)=SUM) *SIN(WHL*DT) 
L=L+2 
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APPENDIX=I1I 
SUBROUTINE 'ABCD2! 


CONTINUE 


CALCULATE THE EVEN SUM FOR THE RECORD. 


DO 27 J=2e9NPPRo2 
SUMEC=SUMEC+(X(U)=SUM) #COS (WHM#DT ) 
SUMES=SUMES+(X(U)=SUM) *SIN(W*M*DT ) 
M=M+2 

CONTINUE 

CONTINUE 


CALCULATE EVEN AND ODD SUM FOR LAST RECORD OF TIME 
DATA USED IN TRANSFORMe 


READ THE LAST RECORD OF TIME DATAs 

READ(CIFLR'NREC)X 

CALCULATE THE ODD SUM FOR THE LAST RECORD. 

DO 28 I#l»sNP2s2 

CHECK FOR THE 2ND LAST POINT IN THE 2ND LAST RECORD. 


IF (I=NP)45946 946 
FBC=(X(1)=SUM) *COS (W#L*DT)/200 
SUMOC=SUMOC+FBC 
FBS=(X(1)—SUM)*SIN(W#L*DT)/200 
SUMOS=SUMOS+FBS 

GOTO 24 
SUMOC=SUMOC+(X(1)=SUM)#COS(W#L*DT) 
SUMOS=SUMOS+(X(1)=SUM)#SIN(WEL*DT ) 
L=L+2 

CONTINUE 


CALCULATE THE EVEN SUM FOR THE LAST RECORDes 


DO 29 J=2sNEPLRo2 

SUMEC=SUMEC+(X (U) =SUM) #COS (W*M*DT ) 
SUMES=SUMES+(X(U)=SUM) *SIN(WHM*DT ) 
M=M+2 

CONTINUE 


EVALUATE ALP»sBET »GAMe 
R=W*DT 


IF R IS LESS THAN 0035 RADIANS EVALUATE ALP»sBET AND 
GAM BY A SERIES APPROXIMATION® 
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APPENDIX=III 7 
SUBROUTINE 'ABCD2! 


br CR=0¢e35) 35935936 
35 ALP=2 00/45 oc O#R*H3 M2 eO/BL5 eOKREXK5 ot 2 00/4125 00K REX Te 
BETH2 00/3 0 O+2 eO/ 15 eO# REZ M40 0/105 oe O#REH4 04+ 200/567 00% 
LR¥*®6 e460 /222 75 ec O# RKB, 


GAM=4 00/3 0 0=2 00/156 0*REH2 Oo tREXUG 0/270 e0RREXG0/11340004 
LR¥**8e/99792000 


GOTO 38 
36 ALP=1LeO/RtSIN(200*R)/(2e0*R¥HZ0) =2eOK(SIN(R) )R¥20/R* 
1*36 


BET=20e0#*(((COS(R) )#¥2 04100) /R¥¥2 eo =SIN( 2e0#R) /R¥*3Z 0) 
GAM=4eO*(SIN(R)/R**Z6=COS(R)/R¥*20 ) 
38 K=K+1 


SET A AND B EQUAL TO THE VALUES OF THE COSINE ANDO SINE 
INTEGRALS RESPECTIVELY. 


A(K)=DT*(ALP*(FBS=FAS) +BET*SUMOC+GAM*SUMEC) 
B(K) =DT#(ALP* (FAC@FBC) +BET*SUMOS+GAM*SUMES) 


CHECK IF A FULL RECORD OF FREQe DATA HAS BEEN 
CALCULATED>. 


IF (K=NPPR)13951951 
Di IRW=TRW+1 


%* 
WRITE A RECORD OF FREQe DATA FOR COSINE AND SINE 
INTEGRALS RESPECTIVELY. 


WRITE(IFLI'IRW) A 
WRITECIFL2'IRW) B 


RESET SUBSCRIPT FOR FREGe DATAs 
K=0 
INCREMENT FREQUENCY 


13 W=W+F INC 
Fhe CONTINUE 


CALCULATE THE ERROR OF CLOSURE FOR EVERY THIRD POINT 
IN THE LAST RECORD OF TIME DATA USED IN TRANSFORMe 


WRITE (LUWs78) | 

78 FORMAT('ERROR OF CLOSURE EVERY 3RD PTeIN LAST RECe!) 
DO 77 I#lsNPPR»93 
ERCL=X(1)=<SUM 


WRITE ERROR OF CLOSUREe 
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SUBROUTINE 'ABCD2! 


WRITE (LUW979) ERCL 
FORMAT (2X 9F 1005) 
CONTINUE 

RETURN 

END 
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APPENDIX=<I11I l 
SUBROUTINE 'SuUMS! 


SUBROUTINE *SUMS! 


CHK HHH HK ETE HEH HIE I HE AE HE IE HE IE HE OE FE IE HE SE IE IE SE IE IE IE IE IE BE SE IE SE TE 3G FE IE IE IE IE 3E 9 IE SE SE 9G IE 9 5G 


G ** SUBROUTINE SUMS *# 
CEH HHH HEHE HE IE TEE HE HE IEE HEH HEHE TE IE EEE HEA IE IE SE HE IE IE AE IE IE IE IESE FE HE SE IE SE IE SE JE IE IE 26 96 26 EI IE IE HE 


SUBROUTINE SUMS CALCULATES THE AREA UNDER THE CURVE OF 
THE INPUT PULSE USING THE SIMPSON'S QUADRATURE. 


**® TABLE OF FUNCTION OF VARIABLE NAMES ** 
HEHE HH EH HE IE HEH IH IE HE HE TE HEH HE HK IESE IE IE TE HE HE BE IESE IE HE IESE IE TENE SE HE HE AE HE IE IE ME HE HE IE HE EH 


VARIABLES IN COMMON AND IN THE ARGUMENT LIST WHICH 
ARE NOT DESCRIBED IN THIS LISTING ARE DESCRIBED IN 
THAT OF THE MAINLINE® 


V IS THE DIMENSIONED VARIABLE INTO WHICH EACH RECORD 
OF DATA IS READ DURING THE CALCULATION OF AREAc 


IRTNF AT FIRST =NOo OF FIRST RECORD OF TIME DATA USED 
IN CALCULATIONs LATER IT IS SET EQUAL TO NOe OF 
SECOND RECORDe 


AREA=AREA UNDER THE CURVE AT EACH STAGE IN THE 
CALCULATIONs IE«e =TOTAL AREA AT END OF SUBROUTINE® 


N2=NOe OF LAST POINT CONSIDERED IN A RECORDs IT IS 
CHANGED AS REQUIREDe 


NSL=NOe OF SECOND LAST RECORD USED IN CALCULATION OF 
AREAe 


Fe AE HE FE FE SE IE BE EE HE IE DE HE FE IE SE IE IE SE FE IE IE SEE HEE HE FE ETE TEE SESE IE HEH HK HIE EH EH HMM 


HOA AOD AOD OO OADO OO NAD OFFO00 0.0 OD OH. 


SUBROUTINE SUMS(IFLXsNRECsSUMsAREA) 
DIMENSION V(40) 


COMMON LURsLUWsNPPR DT sRATEsTRASSs TFLAG 
IRTNF=IRASS+1 

C READ FIRST RECORD OF DATAs 
READ(IFLX'IRTNF)V 

C SET AREA EQUAL TO THE VALUE OF THE FIRST POINTe 


AREA=V(1)=SUM 
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APPENDIX=<III Z 
SUBROUTINE 'SuUMS! 


MULTIPLY EVERY 2ND POINT BY 4 STARTING WITH 2ND 
POINT IN RECORDe 


DO ll 1=2sNPPR92 
AREA=AREA+(V(1)=SUM) #400 
CONTINUE 

N2=NPPR@1 


MULTIPLY EVERY 2ND POINT BY 2 STARTING WITH 3RD POINTe 


DO 13 I=3sN292 
AREA=AREA+(V(1)—=SUM) #260 
CONTINUE 

NSLENREC=1 

IRTNFFIRTNF +1 


READ FROM 2ND TO 2ND LAST RECORD OF DATAs 


DO 14 IRR=IRTNFsNSL 
READ(IFLX'IRR)V 


MULTIPLY EVERY 2ND POINT BY 2 STARTING WITH 1ST POINT 
IN RECORD. 


DO 15 I=lsN292 
AREA=AREA+(V(1)=SUM) #200 
CONTINUE 


MULTIPLY EVERY 2ND POINT BY 4 STARTING WITH 2ND POINT 
IN RECORDe 


DO 16 I=2sNPPRo2 
AREA=AREA+(V(1)=SUM) #400 
CONTINUE 

CONTINUE 


READ THE LAST RECORD OF DATAe 


READ( IFLX'NREC)V 
N2=N2~2 


MULTIPLY EVERY 2ND POINT BY 2 FROM THE 1ST POINT UP 
TO INCLUDE 4TH FROM LAST POINTe 


DO 17 I=lsN2s2 
AREA=AREA+(V( I) "SUM)*200 
CONTINUE 

N2=N2+1 
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APPENDIX=ITI 
SUBROUTINE 'SUMS! 


MULTIPLY EVERY 2ND POINT BY 4 FROM THE 2ND POINT UP 
TO INCLUDE 3RD FROM LAST POINTe 


DO 18 1=29N292 
AREA=AREA+(V(I)=SUM) #460 
CONTINUE 

N2=N2+1 


ADD VALUE OF 2ND LAST POINT TO AREAc 


AREA=AREA+(V(N2)=SUM) 


THE LAST POINT IN THE LAST RECORD 1S NEGLECTED 
BECAUSE SIMPSON'S RULE REQUIRES AN EVEN NOe OF 
PRIERVACS “ALSOP “FF *THE "PUESE © TS *CEOSED F* THE FEAST 
VALUE WILL BE ZERO SO NO ERROR WILL BE INCURREDe 


CALCULATE THE TOTAL AREAs 
AREA=AREA#DT/300 

WRITE OUT VALUE OF AREAe 

WRITE(LUW940) AREA 

FORMAT('AREA UNDER INPUT CURVES' 9F1l005) 


RETURN 
END 


3 











é 


















— 


LI D=xIGMa99A by 


QU THIOS OWS 3HT MOHF a ya THIOd ous. AVE YISITIUN 
eTH109 Teas Mona cose pei te: AT OT 


) SeShe OC 
Oe in a f 
“ivieag Al 1rH09 

| etry - 
eAZAA OT THIOF TeAd ans 70 ea 


(mye (Si) VI +ABRA 
. 24 
O3TD3403" 21 GAODSA T2Ad SHT “I THOS er 
9O .OW Y3V3 HA 23ATUO3A 34UR 2*MO!9M1e Sevuadae 
T2Aj 4H7 ¢G320J3 21 32409 BHT 41 eO2JA + CJAVARTY 


O3n7UDVI 38 JdtW ROAR OW O2@ OARS 38 Jitwe au. 


eA3AA JATOT BHT STAIUD: 24A2 
OsE\TO*AR AeASA 

\ rn 1% - wy 

eASAA 30 susAV TU0 37 Taw 

AZAA (00s @0Us0 0 

(@e0LFe'=3VAUD TUSMI ASQMU ABAA') TAMAO® 








APPENDIX=I11 l 
SUBROUTINE 'ARPHF! 


SUBROUTINE 'ARPHF ! 


CHE HE HH HK HE HE HHH HEHEHE TE HEE TEE FEE HE IE TE HEHEHE HIE IE HEHEHE HE IE IE IE SE IE TE HE HE IEE EE 3 HE IEE HE 


** SUBROUTINE ARPHF ** 
CHER HEH KH HH HHH HHH HHH HH EH HEH EH HE HEHEHE HE TET HE HEME HH IE HE HE HE IE IE HE IE HE IE HE IE HE IE IEE 


SUBROUTINE 'ARPHF' USES THE REAL AND IMAGINARY 
COMPONENTS OF THE FOURIER TRANSFORM OF THE INPUT AND 
THE OUTPUT PULSESs AS CALCULATED BY SUBROUTINE ABCD1 
OR ABCD2s TO CALCULATE THE AMPLITUDE RATIO» PHASE LAG 
AND FREQUENCY CONTENT FOR THE SYSTEM TESTED. 


**® GENERAL COMMENTS **# 
ee ee ee ee ee ee ee ee ee 


THE DIMENSIONED VARIABLES AsBsC9D INITIALLY 

REPRESENT THE REAL AND IMAGINARY PARTS OF THE FOURIER 
TRANSFORM OF THE OUTPUT AND INPUT PULSES RESPECTIVELY. 
AFTER A RECORD OF EACH VARIABLE IS READ FROM DISK 

INTO COREs THE VALUES IN EACH LOCATION ARE OVERLAID 
WITH THE VALUES OF THE AMPLITUDE RATIOs PHASE LAG AND 
FREQUENCY CONTENTe THESE VALUES ARE THEN WRITTEN ON 
TO DISK IN THE SAME AREA THAT AsBsC9D WERE READ FROMe 


*#*% TABLE OF FUNCTION OF VARIABLE NAMES ** 
He HE FE EAE HE FE IE IE IE HE FE FE IESE SEE TE IE HE HE BEE HE AE I HEE HEHE IE HEHE IE HE TE TE HEHEHE EAE HE HHH HHH HHH 


NARA OANOANROAAAO AAA AAD OOO Ae 


VARIABLES IN COMMON AND IN THE ARGUMENT LIST WHICH 
ARE NOT DESCRIBED IN THIS LISTING ARE DESCRIBED IN 


A=REAL PART FOURIER TRANSFORM OUTPUTes (INITIALLY) 
B=IMAGe PART FOURIER TRANSFORM OUTPUTes (INITIALLY) 
C=REAL PART FOURIER TRANSFORM INPUTe (INITIALLY) 
D=IMAGe PART FOURIER TRANSFORM INPUT. (INITIALLY) 


IRR=THE NOe OF THE RECORD IN DISK READ WRITE 
OPERATIONSe 


W=FREQUENCY (RAD/SEC) « 


Z 1S THE DENOMINATOR TERM USED IN CALCULATION OF THE 
REAL AND IMAGINARY PARTS OF THE TRANSFER FUNCTIONe 


RE=REAL PART OF TRANSFER FUNCTIONe 


AO ONnNHAMTONNMANMHOAAAHNAAN 
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APPENDIX@III 2 
SUBROUTINE 'ARPHF! 


CO=IMAGINARY PART OF TRANSFER FUNCTIONe 


AG=PHASE ANGLEs 


HH HEE HEHEHE HE HEHE FE FE HE FE HE EE HE IE HE HE HE IE IE HE EE IE EEE HH KH MK HH KKH KKK 


AO CAO OM yy 


SUBROUTINE ARPHF(IFLAsIFLBsIFLCsITFLD»NRF sAREASFINT » 
1FINCsSPECDsPOWR) 

DIMENSION A(40)9B(40) 9C(40) 9D (40) 

COMMON LUR »sLUWaNPPR DT sRATESTRASSs ITFLAG 


C INITIALIZE FREQUENCYe 
W=FINT 
C INITIALIZE PARAMETERS TO CALCULATE ANGLEs 
ADJ=0 00 
BITO=1e0 
STORE=1 0 
BIT2=1e0 
C READ ONE RECORD FROM EACH FILE OF FREQe DATAe 
DO 10 IRR#=l»NRF 
READ(IFLA'IRRIA 
READ(IFLB'IRR)B 
READ(IFLC'IRRIC 
READ(IFLD'IRR)D 
DO 11 I=lsNPPR 
Z=C(1)*¥*20+D( 1) **20 


C CALCULATE REAL AND IMAGINARY PARTS OF THE TRANSFER 
C FUNCT IONe 


REZ(ACI)#C(IT)4+B(01)*D(1))/2 
COH(ACT)*#D( 1) @B( 1) *C(1) 172 


Cc CALCULATE AMPLITUDE RATIO« 
A(T) =ABS( (RE**#20+CO¥*2 6) ¥*005) 
C CALL A SUBROUTINE TO CALCULATE THE PHASE ANGLE e 


CALL ANGLE (CORE 9AG sADU eBITZsIRRoToBITOsSTORE) 
B(1I)sAG 
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APPENDIX=<III ce 
SUBROUTINE 'ARPHF! 


CALCULATE THE FREQUENCY CONTENT OR THE POWER 
SPECTRUMe 


CULI=(ABS(C(L) *#*#24+D(1) **2) ¥#0 05) **POWR/ (AREA**SPECD) 
CALCULATE FREQUENCY. 


D(1)=W 
W=W+F INC 
CONTINUE 


WRITE ONE RECORD OF OF AMPe RATIO DATA ON DISKe 


WRITECIFLA'IRRIA 


WRITE ONE RECORD OF PHASE ANGLE DATA ON DISKe 


WRITECIFLB'IRR)B 


WRITE ONE RECORD OF OF FREQe CONTENT OR POWER SPECTRUM 
DATA ON DISKe 


WRITE(IFLC'IRRIC 
WRITE ONE RECORD OF OF FREQe VALUES ON DISKe 


WRITE(CIFLO'IRRID 
CONTINUE 


WRITE OUT THE FILE NUMBERS WHERE THE VARIOUS PIECES 
OF THE INFORMATION ARE STOREDe 


WRITE(LUW920)1FLA 

FORMAT('AMP RATIO IN FILE' 913) 
WRITE (LUWs21)1FLB 

FORMAT('PHAS LAG IN FILE'»13) 
WRITE(LUWs22)1FLC 

FORMAT('FREQ CONT IN FILE'913) 
WRITE (LUWs23) TFLD 

FORMAT('FREQ VALUES IN FILE'#s13) 
RETURN 

END 
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APPENDIX=I1I 1 
SUBROUTINE "ANGLE! 


SUBROUTINE ‘ANGLE! 


CH HH HEH IE HE EH HEH HE HEHE HE IE HE IE IE HE TEE IE FE HE IE HE SE EE IE FE BE 96 JE HE SE 3G JE 96 EE 96 8 28 2 98 2 48 28 aE 


C 


** SUBROUTINE ANGLE ** 


CHR RHE HH HK HEH KEK HIE IEE HEME IE HE SE IE HE I HE HE IE IE SEE GE IEE 96 JE SEE SE JE SE 98 HE 9 28 46 96 26 36 


POU cy OO LN OANA MA OANAN NA AOAHANOANAAHAAAAAAAAOA AA AN 


SUBROUTINE "ANGLE' UTILIZES THE FORTRAN SUPPLIED 
SUBPROGRAM 'ATAN' TO EVALUATE THE PHASE ANGLE OF THE 
TRANSFER FUNCTIONs IT IS DESIGNED TO SAVE THE STATUS 
OF THE LAST ANGLE VALUE» SO IF IT IS CALLED FOR 
SUCCESSIVE VALUES OF THE REAL AND IMAGINARY 
COMPONENTS OF THE TRANSFER FUNCTIONs AN ACCUMULATIVE 
ANGLE UP TO SEVERAL THOUSAND DEGREES MAY BE 
DETERMINED. 


** GENERAL COMMENTS #** 


HHH HHH HH HH HH HH IE IE IE HE HE ESE HE HE HE SE SE HE IE IE SE IE ESE SE SE IE SE 3G IE SE SE HE SE ESE FE FE IESE EE FE 26 26 96 26 5 


THE SUBPROGRAM 'ATAN! EVALUATES THE ANGLE BETWEEN 

+ AND = 90 DEGREES (THE REGION NEAR ZERO FOR WHICH 
THE TANGENT OF AN ANGLE IS DEFINED) e THEREFORE» TO 
OBTAIN AN ACCUMULATIVE PHASE ANGLEs THIS SUBROUTINE 
ADDS + OR 180 DEGREES TO THE 'ATAN' ANGLE EACH TIME 
'Q' CHANGES SIGNs THE SUBROUTINE ASSUMES THAT IF 'Q! 
CHANGES SIGN WHEN THE PREVIOUS ATAN ANGLE WAS IN THE 
UPPER ReHeQUADRANT THEN THE NEW ADJUSTED ANGLE LIES 
IN THE UPPER LeHe QUADRANTe SIMILARILY FROM LOWER ReHe 
TO LOWER LeHe QUADRANTe THEREFORE LARGE CHANGES IN 
ANGLE CAN CAUSE THE SUBROUTINE TO ERRe 


** TABLE OF FUNCTION OF VARIABLE NAMES ** 


Fe HE HE HE HE FE SE IE IE Fe FE FE HE HE IE HE FE HE IE SE IE TE HE SE HE TE SE I TE IE FE TEE IE HE IE OE SE HE HE SE He EEE HE IE HE IE SE HE IE HE SE 3 Ht Ht 


VARIABLES IN COMMON AND IN THE ARGUMENT LIST WHICH 
ARE NOT DESCRIBED IN THIS LISTING ARE DESCRIBED IN 
THAT OF THE MAINLINE® 

P=IMAGINARY PART OF TRANSFER FUNCTIONe 


Q=REAL PART OF TRANSFER FUNCTIONe 


A=VALUE OF ARCTAN FUNCTION AT BEGINNING OF 


SUBROUTINEs BUT = ACCUMULATIVE ANGLE WHEN RETURNED 
IN ARGUMENT LISTe 


ADJ=ADYUSTMENT FOR ACCUMULATIVE ANGLE«s 


BIT2=—-1¢0 IF ANGLE IS DECREASINGs =+1+e0 IF ANGLE IS 
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APPENDI X#I1I 2 
SUBROUTINE 'ANGLE! 


INCREASINGe 


IRR=NUMBER OF RECORD OF DATA BEING PROCESSED IN 
MAINLINE® 


T=NUMBER OF DATA POINT BEING CONSIDERED IN RECORD OF 
DATA BEING PROCESSED IN MAINLINE®s 


BITO=THE SIGN OF Q ON THE PREVIOUS EVALUATION 
OF ANGLE. 


STORE=VALUE OF ARCTAN FUNCTION ON PREVIOUS 
EVALUATION OF THE ANGLEe 


BIT1=THE SIGN OF'Q! ON THE PRESENT EVALUATION OF 
ANGLE « 


HH HEHEHE IE TE HEH TE IE HEHE HK ESE HE IEE IE HE IE HE SE HE SE HE HE IE HE FE OE SE SE IE HE EE IE HE SE IE HE SE HEE SE EE HE HE EE HE 


SUBROUTINE ANGLE (PsQsAsADJ sBIT29IRReIsBITOsSTORE) 


CHECK OF 'Q'=05 IF SO NEGLECT POINT AND RETURN TO 
MAINLINE e 


IF(ABS(Q)-060)24921924 


EVALUATE ARCTAN TO OBTAIN UNADJUSTED ANGLE IN 
DEGREES» 


A=ATAN(P/Q) #18000/3 61416 

CHECK FOR FIRST RECORD. 

IF(IRR#1) 29295 

CHECK FOR FIRST POINT IN FIRST RECORDe 
IF (I=1)49495 

SET SIGN OF 'Q! FOR FIRST ANGLEe 
BITO=Q/ABS(Q) 

STORE VALUE OF FIRST ANGLEs 


STORE=A 
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APPENDIX=I111 
SUBROUTINE "ANGLE! 
SET SIGN OF 'Q' FOR PRESENT ANGLEe 
BIT1=Q/ABS(Q) 
CHECK FOR A CHANGE OF SIGN IN 'Q'te 
IF(BIT1/BITO)79898 
DETERMINE THE DIRECTION OF CHANGE FOR ANGLEe 
IF (STORE=500)13914914 
ANGLE DECREASINGe 


BIT2=—-1¢20 
GOTO 15 


ANGLE INCREASINGe 
BIT2=1e0 


MODIFY ADJUSTMENT TO TAKE INTO ACCOUNT THE CHANGE OF 


SIGN IN '#Q'e 
ADJ=ADI+BIT2*18060 
SET SIGN OF 'Q* FOR NEXT TIMEe 


BITO=BIT1 


STORE VALUE OF ANGLE FOR DIRECTION OF CHANGE CHECK ON 


NEXT ITERATIONe 

STORE=A 

CALCULATE THE ADJUSTED ANGLEs 
A=A+ADJ 


RETURN 
END 
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APPENDIX=I11 1 
PROGRAM 'BFKTY! 
PROGRAM 'BFKTY! 


G A ae SS es SL es ee NS nls Sh Hn ah Nes kas A Hd SOND Nemes AO Gs SS nh Ses SA OO ets MS Se es SU OS haem he MS 
FR PROGRAM BFKTY *4# 
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PURPOSE 


TO UTILIZE THE REAL AND IMAGINARY COMPONENTS 
OF THE FAST FOURIER TRANSFORM OF THE INPUT AND 
OUTPUT PULSES TO OBTAIN THE AMPLITUDE RATIOs 
PHASE LAG AND FREQUENCY CONTENT FUNCTION FOR 
TAG “SYSTEM VESTEDS 


PARAMETERS ENTERED VIA KEYBOARD 


IFLRI = FILE NOe FOR REAL PART OF TRANSFORM 
OF INPUT PULSE 

IFLII = FILE NOe FOR IMAGe PART OF TRANSFORM 
OF INPUT PULSEe 

IFLRO = FILE NOe FOR REAL PART OF TRANSFORM 
OF OUTPUT PULSEe 

IFLIO = FILE NOe FOR IMAGe PART OF TRANSFORM 
OF OUTPUT PULSEs 


N = NOe OF FREQUENCY POINTS USEDe 
AREA = AREA UNDER INPUT PULSEe 
RATE = PULSE DATA SAMPLE RATE IN POINTS/SECe 
IREIM = =1»9 AMP RATIO®s PHASE LAGs FCNT 
CALCULATED« 
=2»9 REAL AND IMAGe COMPONENTS OF 
TRANSFER FUNCTION CALCULATED. 
SPECD = =O»9 FULL FREQUENCY CONTENT CURVE 
CALCULATEDe 
=l» NORMALIZED FREQUENCY CONTENT 
CURVE CALCULATEDe. 
POWR = =O00e5s9FREQUENCY CONTENT CURVE 
CALCULATEDs 


=ls SPECD=0s POWER SPECTRUM 
CALCULATED IN PLACE OF FREQUENCY 
CONTENT CURVEs 


RESTRICTIONS 


IF 'IREIM'=29 THE AMP RATIO» PHASE LAG AND 
FREQ@e CONTENT CAN ONLY BE OBTAINED IF THE 
ORIGINAL TIME DATA IS TRANSFORMED AGAIN AND 
'BFKTY!' IS EXECUTED WITH 'IREIMt=le 
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APPENDIX=III 2 
PROGRAM 'BFKTY! 


HH Alina sate behest ial 


THE DIMENSIONED VARIABLES ARI» AIIs AROs AIO 
INITIALLY REPRESENT THE REAL AND IMAGINARY PARTS OF 
THE FOURTER TRANSFORM OF THE INPUT AND OUTPUT PULSES 
RESPECTIVELYe AFTER A RECORD OF EACH VARIABLE IS 
READ FROM DISK INTO COREs THE VALUES IN EACH LOCATION 
ARE OVERLAID WITH THE VALUES OF THE AMPLITUDE RATIOs 
PHASE LAG AND FREQUENCY CONTENT (IREIM=2»9 REAL AND 
IMAGINARY PARTS OF TRANSFER FUNCTION) « THESE VALUES 
ARE THEN WRITTEN ON TO DISK IN THE SAME LOCATION THAT 
ARI» AIIs ARO AND AIO WERE READ FROMe 


** TABLE OF FUNCTION OF VARIABLE NAMES ¥** 


VARIABLES IN THE SUBROUTINE ARGUMENT LISTS WHICH ARE 
NOT EXPLAINED IN THIS LISTING ARE COVERED IN THAT 

OF THE APPROPRIATE SUBROUTINE. 

LUR=LOGICAL UNIT NUMBER FOR KEYBOARD INPUT. 
LUW=LOGICAL UNIT NUMBER FOR KEYBOARD OUTPUTe 
NPPR=NUMBER OF DATA POINTS PER RECORD IN DISK FILESe 
NREC=NUMBER OF FREQUENCY DATA POINTS USEDe 

DT=THE TIME INCREMENT BETWEEN TIME DATA POINTSe 

belS AeTOTAL SUBSCRIPT FOR ALE LTHE PREQUENCY IDATA 

BN ATHE .DLSK “FPLKES Rel hh. 1S SUSED «LN PTHE GENERATION OF A 
FILE OF FREQUENCY VALUESe 


IRR=THE RECORD NUMBER ON DISK FILE READ WRITE 
OPERATIONS» 


DEN=DENOMINATOR TERM USED IN CALCULATING REAL AND 
IMAGINARY PARTS OF TRANSFER FUNCTIONe 


GIM=IMAGINARY PART OF TRANSFER FUNCTION 
GRE=REAL PART OF TRANSFER FUNCTIONe 
A=PHASE ANGLE OF TRANSFER FUNCTIONe 


FCNT=FREQUENCY CONTENT OR SPECTRAL POWER OF INPUT 
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APPEND AT 3 
PROGRAM 'BFKTY! 


eG PULSE .e 
fe 
C 
el Se cen srs ss ol inn mae wn tn at oe cd ere ns Sa msn new eegslom oe ea pelos ec 
G 
e 
DEFINE FILE 51(645809UsU0) 152(645980sUsU0) » 
153 (64980 9UsJ0) 954(649809UsU0) 955 (649809UsU0) » 
156(649809U9J0) 957(64s809UsU0) 958(649809U9U0) 
DIMENSION ARI (40) sAII (40) sARO(40) sAIO( 40) 
C INITIALIZE SOME PARAMETERS». 
LUR=1] 
LUW=2 
NPPR=40 
c WRITE OUT PROGRAM IDENTIFICATION. 


WRITE (LUW95555) 
5555 FORMAT('THIS IS AMPe RATIO®s PHSe LAGs FREQe CONTENT '9 
2 ROUTINE!) 


S WRITE OUT DATA ENTRY INSTRUCTIONS 


WRITE (LUWs3) 
3 FORMAT('ENTERsIFLRIsIFLIIsIFLROsTFLIOsNsAREASRATE S's 
L'IREIMsSPECD»sPOWR' ) 


% CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
ENTRY e 


CALL FFINP(LURs1lOsOsIFLRI sOsIFLIIsO0sITFLROsOsITFLIOs09No 
L1sAREAs ls RATE sO0sTREIMs1sSPECD 91 sPOWRs TEROR) 
NREC=N/NPPR+1 

DT=1e0/RATE 

L=0 


. INITIALIZE PARAMETERS TO CALCULATE THE PHASE ANGLEe 


ADJ=0 00 

STORE=1¢0 
BIT2=1+40 
BITO=1-e0 


READ THE REAL AND IMAGINARY COMPONENTS OF THE INPUT 
AND THE OUTPUT AND CALCULATE THE AMPLITUDE RATIO AND 
PHASE ANGLE OF THE TRANSFER FUNCTIONe 
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APPENDIX=II1 
PROGRAM 'BFKTY! 


DO, 15 IRR=] »NREC 


READ ONE RECORD OF DATA FROM DISKe 


READ(TFLRI'IRR)ARI 
READ(IFLIT'IRR) ATI 
READ(IFLRO'IRR) ARO 
READ(IFLIO'IRR)AIO 


PROCESS EACH POINT IN EACH RECORD READ FROM DISKe 


DO ll I=l,NPpR 
DEN=ARI(1)*ARI(I)+AII(1)*AII (1) 
GIM=(ARO(T)*ATII(I)-AIO(1) *ARI(1)) /DEN 
GRE=(ART(1)*ARO(1)+AII(1)*AIO(1))/DEN 


CHECK IF REAL AND IMAGINARY COMPONENTS OF TRANSFER 
FUNCTION ARE ALL THAT IS REQUIRED. 


GOTO( 30931) sIREIM 


ARI(1)=GRE 
AII(1I)=GIM 
GGEO «11 


GALE SUBROUTLNE oT0 ,EVAUYATE THE PHASE ANGLE. 
CALL ANGLE (GIMsGRE sAsADUsBIT29IRRoI »BITOsSTORE) 


CALCULATE THE FREQUENCY CONTENT OR SPECTRAL POWER OF 
INPUT PULSE. 


FONTS ((ARI( I) **#20+AITI(1)**¥20)/N/DT) **POWR 
L/(AREA**SPECD) 


CALCULATE AMPLITUDE RATIO+e 


ARI(1T)=ABS( (GRE*#*2e+GIM#*2 6) **0.5) 
AII(I)=A 
ARO(1)=FCNT 


CALCULATE FREQUENCY VALUESe 


L=L+1 
AIO(1)=2*L*301416/N/DT 
CONTINUE 


WRITE A RECORD OF AMPe RATIO*s PHASE ANGLEs FREQUENCY 
CONTENT OR SPECTRAL POWERs AND FREQUENCY ON DISKe 


WRITE(CIFLRI'IRR)ARI 
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APPENDIX=I11 
PROGRAM 'BFKTY! 


WRITE CIFLII'IRR) ATI 
WRITECTFLRO'IRR) ARO 
Wee lTECTPUTO*IRR A ro 
CONTINUE 


CHECK IF REAL AND IMAGINARY COMPONENTS OF TRANSFER 
FUNCTION ARE ALL THAT IS REQUIRED. 


GOTO( 32933) sIREIM 


WRITE OUT NUMBERS OF FILES CONTAINING REAL AND 
IMAGINARY COMPONENTS 


WRITE(LUWs34)IFLRIsIFLII 
FORMAT('GRE IN FILE'sI391X9'GIM IN FILE' 913) 
GOTO 53 


WRITE OUT THE DISK FILE NOSe WHERE DATA IS STOREDe 


WRITE(LUW945) IFLRI 

FORMAT('AMPs RATIO IN FILE' 915) 
WRITE(LUWs46)IFLII 

FORMAT('PHASE LAG IN FILE'9I5) 

WRITE (LUWs47)IFLRO 

FORMAT('FREQe CONTe SMTHe IN FILE'9I5) 
WRITE (LUWs48) IFLIO 

FORMAT('FREQUENCY IN FILE'9I5) 

Wee *LINK(CHIEF ) 

END 
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APPENDIX=I11 i 
PROGRAM 'Bucws! 


PROGRAM 'BUCWwWS! 


— om — oe aoe oe ee —— = 
-~_ ~ a ee et ta a ss i er vn eter sate Se ct dts en Sw Os end aw ws ccd ea ccc 


PURPOSE 


TO PROVIDE FACILITY TO CALL SUBROUTINE "ARPHF ! 
IN THE EVENT THAT "ISMTH'=2 WHEN PROGRAM 'FREQ! 
IS EXECUTED. 


PARAMETERS ENTERED VIA KEYBOARD 


THE PARAMETERS ENTERED HAVE THE SAME MEANING 
AS THOSE GIVEN IN THE LISTING OF PROGRAM 'FREQ's 


OAV ENO OOO ODD) OVO... YOON CGY EY 


DEFINE FILE 51(649809UsU0) 952(64980sUsuU0) » 
153(649809UsJ0) 954164580 9UsU0) 955(645809U8U0) + 
156 (649809Us50) 957(645809U 940) 558 (64980 9Us9U0) 

COMMON LUR*LUWe®NPPR s DT sRATEsIRASSSIFLAG 

LUR=] 

LUW=2 

NPPR=40 

DT=160 

RATE=1e0 

IRASS=1 

IFLAG=1 


C WRITE OUT PROGRAM IDENTIFICATION. 


WRITE (LUW910) 
10 FORMAT('THIS IS PROGRAM BUCWS') 


K WRITE OUT DATA ENTRY INSTRUCTIONS 


WRITE (LUWs911) 
ll FORMAT('ENTERsIFLAsIFLBsIFLCasTIFLDeNRF sAREAsSFINT sFINCS! 


l»s'SPECD»sPOWR!') 


S CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
c ENTRY e 


CALL FFINP(LURs1lO»sOsITFLAs0sTFLBsOsIFLCsO0sTFLDsOsNRF 9 
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APPENDIX=I1] 
PROGRAM 'BUCWS! 


L1sAREAs1sFINTs1sFINC91sSPECD 91 sPOWR»s [EROR) 


CALL SUBROUTINE TO CALCULATE THE AMPLITUDE RATIO+s 
PHASE ANGLE» FREQUENCY CONTENT AND FREQUENCY FOR THE 
SYSTEM PULSE TESTED. 


CALL ARPHF(IFLAsIFLBsIFLCs IFLD»NRF »AREA s9FINT oFINCs 
1SPECD sPOWR) 


CALL LINK(CHIEF) 
END 
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PROGRAM 'PWRSL! 


PROGRAM 'PWRSL! 
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PURPOSE 
TO UTILIZE THE GENERAL PURPOSE PLOTTING 
SUBROUTINE 'NWPLT'« 


PARAMETERS ENTERED VIA KEYBOARD 
NPTSsTIDsISsIGsILeolTsIBsTUsIPsNFILX AND NFILY 
ARE DEFINED IN THE LISTING OF SUBROUTINE 
'NWPLT ! e 
IFLAG = =1l»s RETURN FOR ANOTHER PLOT AFTER 

COMPLETION OF PRESENT PLOTe 


=Z» EXIT AFTER COMPLETION OF PRESENT 
PLOTe 


*#* TABLE OF FUNCTION OF VARIABLE NAMES ** 


ee EE eee Ee ee ee a Na he ns Li A A ie ee NE ie SA ks nm ES ly in es ly A ls i an es ee SO 


VARIABLES IN THE SUBROUTINE ARGUMENT LISTS WHICH ARE 
NOT EXPLAINED IN THIS LISTING ARE COVERED IN THAT 

OF THE APPROPRIATE SUBROUTINE®s 

LUR=LOGICAL UNIT NOe FOR TYPEWRITER INPUT. 
LUW=LOGICAL UNIT NOs FOR TYPEWRITER OUTPUT. 

NPPR=NOe OF POINTS PER RECORD. 


VMIN IS A DUMMY VARIABLE USED IN CALCULATIONS TO 
DETERMINE THE NOw OF CYCLES FOR MANUAL LOG SCALINGe 


at Chee OL EVOVEV IVEY AIO ATIO ATT AAA OA OAANO AMAA A 


DEFINE FILE 51(649809Us40) 952(645809UsU0) » 
153(649809UsU0) 954(64980 9U940) 955(645809U9I0) » 
156(649809UsU0) 957(649809U2U0) 958 (64980 9Us0) 

DIMENSION xX (40) 9Y(40) sLABX(10) sLABY(10) 


C INTIIALIZE PARAMETERS» 






















* Lld=x lav aa5A 


.” yi isto thane 





7 
ee ee ES eS ee ee ee ae Se oe sn neh gga ahed Da celine 


ee J2nwa monroe a 


re mee mee Oe me oe oe ow on a oem ea et ee ah ph ee a 
oa 


; : 
hs ‘* 
4 8 27349 ry 


jute 
SulTTO4S 3209AU9 JARBMEO SMT 38141TU 0} +29 
o'TJQwh* 3ARTUORAUe- © 9 


JH AQBYSA ALV Q3RH3THKS enaTSMARAG 


sith A XL eGbeUVleSleTlesleOlecleQlecra | 
} “ve 30 ovlTtélid SHYT WI G3n193S0 SHA 
e' TISIWA! 
379A TO48 ASHTOVA ROA ARUTESAR ele = BAIA 
eTOUS TARESRA FO VOITSISMOD 
i2g@ana xX 1TSISMOD AATIA TIXS oSs 
eTO0J9 


2cIMAY S4GATRAV FAO KOTTIVUS FO SISAT Se> 


Ne I EE ee 


Te bd T IMVUORA 3n41TVORSsVe 3SHT “1 2348A8 
2F3VOD WA OMITSIS IMT WI GaVLAJSSKS 
«SI TUORGU2 STALAIONSSA SHEE 


eTUGYL BITIAWAAYT HOF 2On TIMU Shsteree 


eTUSTi ITIPWS9YT FOV eOW TIVU JADIE Js 


a 


eCAQDBA ABI STHIOM FO 0 
QT @VGITAJUIGAD 41 G3eU BIBATAAV YMMUG A. al A! 
eVDAiaAse fvblJ JAVAAM FOF e34Y2 30 20K BHT: 


Pal _ 


es 
i 
| ig 





APPENDIX=I11 
PROGRAM 'PwRSL! 
LUR=1 
LUW=2 
NPPR=40 
IR=2 
WRITE OUT PROGRAM IDENTIFICATION. 


WRITE (LUWs5555) 
FORMAT('THIS IS PLOTTING ROUTINE") 


WRITE OUT DATA ENTRY INSTRUCTIONSe 

WRITE (LUWs1) 

FORMAT ('ENTER®NPTSsIDeISeIGsILoITsIBsIUsIPsNFILX 
leNFILY'! 

1S*S9TFLAG') 


CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
ENTRY e 


CALL FFINP(LURs12209NPTS»O0sID202ITSeOsIGsOsILsOsIT 309 
LIBsOsTUs0sITPsO0eNFILX90eNFILYsOsTFLAGsIEROR) 


BErecRMINE IF A FILE OF 'X' DATA IS TO BE GENERATED, 
Be Lees 1 39L3914 

DETERMINE IF MANUAL SCALING IS REQUIRED. 

LE Fi6"1)23923514 

WRITE OUT X=AXIS SCALING INSTRUCTIONSe 


WRITE (LUW:s200) 
FORMAT ('ENTERsXMINSXMAX! ) 


CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
ENTRY 


CALL FFINP(LURs291sXMIN91lsXMAXsITEROR) 
DETERMINE IF X=AXIS IS A LOG SCALEs 
IF (1IL=3)27922922 


CALCULATE THE NOs OF LOG CYCLES ON XmAXISe 


LC=0 
VMIN#XMIN 
VMAX=XMAX=0 001 *XMAX 
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APPENDIX=I1IT 


PROGRAM 'PwRSL'! 
WO=LC+1 
VMIN=VMIN*1000 


IF (VMAX"VMIN) 32932931 
BCYCX=LC 


DETERMINE IF MANUAL SCALING IS REQUIRED. 


bet i$"1)23923919 


WRITE OUT Y=AXIS SCALING INSTRUCTIONSe 


WRITE (LUWs201) 
FORMAT('ENTERSYMINSYMAX!) 


CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
ENTRY. 


CALL FFINP(LURs291sYMIN91sYMAXsIEROR) 
DETERMINE IF Y-AXIS 1S A LOG SCALE. 


PViL=3 142523941 
Petre) 23941923 


BAESULATE THE NOs OF LOG CYCLES ON Y—AX[Se 
LC=0 

VMAX=YMAX=0 eO01*YMAX 

VMIN=YMIN 

LC=LC+1 

VMIN=VMIN*®1000 

IF (VMAX=VMIN) 52952951 

NCYCY=LC 

DETERMINE IF LABELS ARE REQUIRED ON AXESe 
IF (1B-1)16916917 


WRITE OUT INSTRUCTIONS TO ENTER LABEL FOR X@AXISe 


WRITE (LUWs202) 
FORMAT('ENTER LABEL FOR X=AXIS') 


CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
ENTRY. 


CALL FFINP(LUR919102sLABX»TEROR) 


WRITE OUT INSTRUCTIONS TO ENTER LABEL FOR YAXISe 
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APPENDIX=I11 4 
PROGRAM 'PWRSL! 


WRITE (LUWs203) 
203 FORMAT('ENTER LABEL FOR Y=AXIS!) 


G CALL SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
C ENTRY e 


CALL FFINP(LUR919102sLABYsIEROR) 
& CALL GENERAL PURPOSE PLOTTING SUBROUTINE TO PLOT DATAe 


ze CALL NWPLT(XsYeNPPReIDsISesIGosILesITsIBsIUsIRsIPsXMAX9 
LXMINsNCYCXs YMAX s YMINs NCYCY sLABX sLABY sNFILXsNFILY sNPTS) 


G DETERMINE IF ANOTHER PLOT IS REQUIRED. 
eae LAG@1) 50550. 967 


61 ceuw LINK. (CHIEF) 
END 
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APPENDIX=I11 i 


SUBROUTINE 'NWPLT'! 
SUBROUTINE 'NWPLT! 
CHEM HE HEH HH HH HE FE HE IE IEE HI HE HE HE HE HE EE HE IE SE IE IE HE IE 4 IEE 3 36 9 
CHE HH HEHEHE HE HEHE TE HE HH HIE IE IE NE IE A HE HE IE IE HE BE HE IE 3 HE 9G 96 
C **SUBROUTINE NWPLT#* 
CHEE HE IE HH HE I HE IE EH HE HE HE EE IE A SE HE HE IE I IE HE HE IE IE SE IE IE IE IE IE HE IEE HE SE IE IE SE IE OK GE IE FE 26 SE 9K 96 3 3G 9 5 46 


PURPOSE 


A GENERAL PURPOSE PLOTTING SUBROUTINE 


C 

C 

C 

€ 

C 

C PARAMETERS 

C 

E x = INDEPENDENT VECTOR FOR PLOTTING» EMPTY 
C LF tTe2. 

C ¥ ~ DEPENDENT VECTOR FOR PLOTTING 

C N - NUMBER OF DATA POINTS IN X AND Y OR THE 
c NUMBER OF 

C POINTS PER RECORD IF IR=2e 

: 1D - DEVICE» =1 FOR SCOPE» =2 FOR PLOTTER. 
C 1S - SCALING» =1 AUTOMATIC» =2 GIVEN. 

C IG - POSITION» =1 TOPs =2 BOTTOMe 

C Dh ~ GRAPHs =1 LINEAR» =2 Y LOG = X LINEAR» 
C =3 Y LINEAR - 

C X LOGs =4 LOG = LOGe 

c IT ~ INDEPENDENT X» =1 GIVEN» =2 GENERATED 
C LINEAR BETWEEN 

C XMIN AND XMAXe 

C 18 - LABELS» =1 AS GIVENs =2 NO LABELSe 

C TU -~ PLOT STATUS» =1 NEW PLOTs =2 LAST PLOT 
C (TOP) »s =3 

C LAST PLOT (BOTTOM). 

C IR - DATA SOURCEs =1 ALL DATA IN X AND Yo #2 
2 DATA TO BE 

C READ FROM A DISK FILE ONE RECORD AT A 
C TIME6 

C IP - PLOT TYPE» <VE LINE PLOT» =0 TO 5 POINT 
C PLOT WITH 

C THE CORRESPONDING TYPE OF POINTe 

C XMAX = MAXIMUM X VALUE IF IS#2 OR IT#2. 

C XMIN = MINIMUM X VALUE IF IS=2 OR IT#2e 

C NCYCX = NUMBER OF LOG CYCLES IF IS=2 AND ARE 

€ REQUIRED 

C YMAX = MAXIMUM Y VALUE IF IS=2. 

C YMIN = MINIMUM Y VALUE IF IS=2e 

G NCYCY = NUMBER OF LOG CYCLES IF IS=2 AND ARE 

C REQUIRED 

C LABX = LABEL FOR X AXIS IN A2 FORMATe 

C LABY = LABEL FOR Y AXIS IN A2 FORMATe 

€ 


NOTEeeeLABELS TO BE A MAXIMUM OF 20 
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APPENDIX=III z 
SUBROUTINE 'NWPLT! 


CHARACHTERS AND 

SHOULD BE DIMENSIONED 106 
NFILX = DATA FILE FOR X DATA IF IR#2e 
SUD LOY o< *DA PAY PDE ROR ye DAT IPR Rs a 


NPTS = NUMBER OF POINTS OF DATA TO BE TAKEN 
FROM FILE NFIL 


METHOD 


WRITTEN BY ReBe NEWELL »DECEMBER 19685 U OF Ao 


CAO iO: OO. OF. C8 ON ENO 


CH HE IE HE HE HEHE HEHE IESE HEH HEHE IE HE I IEE TEE IE IE IG HE TE BE IE GE IE IE HE JE SE SE TE GE HE 

CHEEK HH HE HEE HEE EHH IE SE IE IE IEE HEE IIE IE HE IE SE TE HE HE IE 3 

c 

ies 
SUBROUTINE NWPLT (XsYsNoTIDsISesIGsILeIlTsIBsIUsIRoIP 
l»oXMAX sXMINsNCYC 
1 sYMAXsYMINeNCYCY »LABX sLABY sNFILX»NFILY »NPTS) 
DIMENSION X(1)sY(1) sLABX(10) sLABY(10) 

a FUNCTION FOR LOGARITHMS TO THE BASE 10-6 
ALOG1(Z)=ALOG(Z)/2e302585 

C SECTION SETTING UP A SCOPE PLOT FOR ID=1le 


GO TO (194) s9ID 
Seamet PLOTDCL) 


G ERASE SCOPE IF IT IS A NEW PLOT 
IF(IUtIG=2) 39293 
2 GALL ERASE 
3 CALL ORGSC(00e09060) 
GO TO 5 
C SET UP THE PLOT ON THE PLOTTER IF I1D=2e 
4 CALL PLOTD(0O) 
Cc SECTION FOR SCALING THE VARIABLESs IF {1S=l.« 
5 GO TO (89899910) sIL 
C LINEAR SCALING OF Xe 


8 NX=10 
ITT=IT*IS 
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SUBROUTINE 'NWPLT! 


mo mo KAD bAOT+ 1075107) s1TT 

SCFX=(XMAX=XMIN) /NX 

GO TO 109 

CALL NWLNS (X9NoXMIN9XMAX 9NX9SCFX*SIReNFILX9NPTS) 
SOOO MP el 20e9¢1L OIL 


LINEAR SCALING FOR Ye 


NY=5 

Bo oO (ID bsh160 sIS 

SCFY=(YMAX=YMIN) /NY 

Be 76 117 

CALL NWLNS (Ys9N9YMIN®YMAX sNY9SCFYsIReNFILYsNPTS) 
GO TO (14912910910) sIL 


LOGARITHMIC SCALING OF Xe 


GO TO (809110)sIS 
CALL NWLGS (X9NeoXMINoXMAX sNCYCX9IRaNFILX9NPTS) 
IF (NCYCX) 10091009110 


CONVERT X VALUES TO LOGARITHMS FOR PLOTTINGe 


XMIN=ALOG1(XMIN) 
XMAX=ALOG1(XMAX} 

DO 11 I=lsN 
X(1I)=ALOG1(X(1)) 
CONTINUE 

GO TO (14912914912) s5IL 


LOGARITHMIC SCALING OF Ye 


GO TO (61s112)9I1S 
CALL NWLGS (YoNeYMIN*SYMAX sNCYCY 9 ITReNFILY 9 NPTS) 
IF(NCYCY)10091009112 


CONVERT Y VALUES TO LOGARITHMS FOR PLOTTINGe 


YMIN=ALOG1(YMIN) 
YMAX=ALOG1( YMAX) 
Bo U3 d*l1sN 
Y(I)#ALOG1(Y(1)) 
CONTINUE 


CALCULATING THE SCALE FACTORSs 


XI PUU=7 05/1 XMAX=XMIN) 
YIPUU=405/( YMAX=YMIN) 


LOCATING THE PRESENT PEN POSITION 
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APPENDIX=III 
SUBROUTINE 'NwPLT! 


mo Te LS ep L6017)s1U 
SOO 4( 1602719 tG 
YPOS=YMIN=5 e6/YIPUU 
GO TO 18 
YPOS=YMIN=“065/YIPUU 
GO TO (19%920)sID 
XPOS=XMIN“0e5/XIPUU 
WONT AZ L 

O27 11991219121 
GO TO (195121)s16G 
XPOS=XMIN+8e5/XIPUU 


CALL SCALING SUBROUTINE 


CALL SCALF (XIPUUsYIPUUsxXPOSsYPOS) 
GOATS (122950950) s IU 


MARKING THE GRID LINES ON THE PLOTe 


IF (YMAX)24923922 

IF (YMIN) 25924924 
POS=YMAX 

GO TO 26 

POS=YMIN 

GOLTO 26 

POS=0 «0 

GO TO (27927928928) sIL 


MARK A LINEAR X GRIDe 


CALL FGRID (OsXMINsPOS sSCFXsNX) 
BAER 29 


MARK A LOGARITHMIC X GRID 


CSIZE=(XMAX=XMIN) /NCYCX 

CALL LGRID(OsXMIN9POS »XIPUUsSYIPUU s0sCSIZEsNCYCX) 
IF (XMAX) 32931930 

IF (XMIN) 33932932 

POS=XMAX 

GO TO 34 

POS=XMIN 

GO TO 34 

POS=000 

GO TOAUIZ5S 536935036) FL 


MARK A LINEAR Y GRIDe 


CALL FGRID (1sPOS*YMINsSCFY»sNY) 
GOrTo (3:7 


LL1=xiqv39qa 
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APPENDIX=III ) 
SUBROUTINE 'NwPLT! 


MARK A LOGARITHMIC Y GRIDe 


36 CSIZE=(YMAX=YMIN) /NCYCY 


CALL LGRID (1sPOSsYMIN»XIPUUsYIPUUs0sCSIZE »NCYCY) 
37 CONTINUE 


ANNOTATION OF THE GRIDS 


GO TO (40940941941) sIL 


ON LINEAR X GRID 


40 CALL NWANN (OsXMINSYMINsXIPUUsYIPUUsXMINeSXMAXsSCFX9IB 
lsLABX) 
GO TO (422943350950) sIL 


ON LOG X GRID 


41 IT=IFIX(XMIN*+tO0eO5*XMIN/ABS(XMIN) ) 
AMIN=10e0**] 
T=IFIX(XMAX+00¢05*XMAX/ABS(XMAX)) 
AMAX=10 e0**] 
CALL NWANN (OoXMINsYMINSXIPUUSYIPUUsAMINSAMAX 5000518 
l»sLABX) 
GO TO (50950942943) sIL 


ON THE LINEAR Y GRID 


42 CALL NWANN (1L9XMINSYMINe9XIPUUSYIPUUSYMINs YMAXsSCFYsIB 
l»LABY) 
GGATO “50 


ON THE LOG Y GRID 


43 TSIFIX(YMIN+0¢O5*YMIN/ABS(YMIN)) 
AMIN=10¢O0**]T 
L=IFIX(YMAX+0e¢05*YMAX/ABS (YMAX) ) 
AMAX=10 e0**] 
CALL NWANN (LoXMINSYMINSXIPUU Ss YI PUUsSAMIN SAMAK 9000 918 
l»sLABY) 


PLOTTING THE POINTS 
GENERATE A X VALUE IF IT#2 


20 NN=N 
GO TO (1659153)9IR 


LOCATING THE FIRST PEN POSITION IF AN ARRAY PLOT 
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APPENDIX=I1I1 


SUBROUTINE 'NwWPLT!? 
So 70 (60061) sIT 
X(1)=XMIN 
BeeerheeorT (Clex(Lbisytry) 
IF CTP)5191525152 
awe PLOT (2aXtibe¥ (1) 


SETTING LOOP VARIABLES IF AN ARRAY PLOT 
NUM=1] 

NPTS=N 

GO TO 154 

SETTING LOOP VARIABLES IF A FILR PLOT 
NUM=1+(NPTS#N) /N 

IF (NPTS=N) 86985985 

NN=N 

GO TO 154 

NN=NPTS 

OUTSIDE LOOP FOR FILE RECORDS 

DO 55 J=ls»NUM 

OBTAINING DATA FROM FILE 

GO TO (1569155)s9IR 

READ JUST THE .Y FILE IF X TO BE GENERATED 
eo f0O (1572158) sI1T 

READ X DATA 
READ(NFILX!'J) (X( 14) sTU=l9N) 

LOGS IF REQUIRED 

GO TO (1589158970970) sIL 

DO 71 I=l9sN 

X(1)=ALOG1(X(1)) 

CONTINUE 

READ Y DATA 
READ(NFILY'J) (YC IU) sIuzloN) 

LOGS IF REQUIRED 


GO TO (3569729156972) sTL 
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APPENDIX=III 
SUBROUTINE 'NWPLT? 


DO 73 I=1l»N 
Y(T)SALOG1(Y(1)) 
CONTINUE 


INNER LOOP FOR GRAPH PLOTTING 


DO 55 I=lsNN 

IFC Il+#J=-2)16791689167 
[Js=2 

SO TO 169 

Iu=0 

SO TO (62963) IT 


GENERATE A X VALUE IF IT=2 


X(T) =XMIN*+(XMAX=XMIN) #(N*(J=1)4+I=1)/(NPTS=1) 
IF(1IP)53954954 


LINE PLOT = PEN IS DOWNe 


GALL FPLOT (louse rey P)9 
GSO 7O 55 


POINT PLOP —.PEN IS NOW UP. 


back PRLOPilesexil)syYti)) 
CALL POINT (IP) 

CALL FPLOT (1loX(T)sY(I)) 
CONTINUE 


DETERMINE IF FINISHED 


NN=NPTS@N*¥NUM 

IF (NN) 160916091652 
NUM=NUM+4+1 

J=NUM 

oO TO “155 

GO TO (57956) sID 
XPOS=XMIN+8 e5/XIPUU 
CALL FPLOT (19XPOS»sYPOS) 
RETURN 

END 
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APPENDIX=I11 L 
SUBROUTINE 'NWLNS! 


SUBROUTINE 'NWLNS! 


CFE HE HE HEE HE HE FE HE IE IE IE IE HE IE 1 IE I IE EE FE FE IE AE IE IE AE FE SE 5 FE SE 56 96 96 96 5 5K 2E 

CHE HEHE HIE HEH IE HE IE HE IE HE HE IE IE HE HE HE HE SE IE HE IE TE SE IE 9G RE 46 94 96 56 46 

C K*# SUBROUTINE NWLNS** 

CHK KKH HEH HH HE HE IE HE FE HE HE 3G HE HK He HEM HE TEE FE HE TE TE FE IE IE FE IE IE FEE IE SE IE SE BE 3 56 46 56 56 36 SE 9K 56 44 56 36 34 24 


PURPOSE 


SUBROUTINE TO DETERMINE A SUITABLE LINEAR SCALE 
FOR A GIVEN 
VECTOR OF VALUES 


PARAMETERS 
X —~MESGTOR OF DATA TO BE SCALED» 
N ™ NUMBER OF POINTS IN THE VECTOR Xe 


NMIN = CALCULATED MINIMUM VALUE FOR THE SCALE 
NMAX = CALCULATED MAXIMUM VALUE FOR THE SCALE 
NX = APPROXIMATE NUMBER OF INTERVALS WANTED 
ON THE AXIS 

REQUIRED AND THE CALCULATED NUMBER 


RETURNEDe 
SS = LENGTH OF THE SCALE INTERVAL IN USERS 
UNITS. 
IR - DATA SOURCE INDICATOR» =1 ALL DATA IN Xo 
=2 DATA IN 


A DISK DATA FILEs 
NFIL = [IDENTIFICATION NUMBER OF THE DATA FILEs 
NREC = NUMBER OF RECORDS OF DATA IN THE '’FILEs 
METHOD 


WRITTEN BY ReBe NEWELL sDECEMBER 1968s U OF Aco 


COO AAOAD OAT OO FF EVOL 11.69 A OO I) FO 


CH HHH HE HH HK H HEE FE AE HE FE IE FE FE TE SE IE HE SE HE HE SE FE FE FE SE IE FE FE HE 
CHKKHKK KEK HHH HEE HK MAE TE FE TE IE IE FE FE HE IE IE HE FE 9G HE 


C 
oe 
SUBROUTINE NWLNS (XsNsNMIN9NMAX9NXeSSsTReNFIL a NREC) 
REAL NMAX»MAXsNMIN»MINSX(1) 
C DETERMINATION OF THE TRUE MAX AND MIN OF THE GIVEN 
C DATA. 


CALL NWMAX (XsNeMINoMAX9TR9OsNFIL 9 NREC) 
RGE=(MAX=MIN) /NX 
IF(RGE~1leO)1ls2s2 
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: APPENDIX=II1 
4 SUBROUTINE 'NWLNS! 


“4. olys-1 
GO TO 3 
2 1yY=0 
3 IX=IFIX(ALOG(RGE)/2.6302585)+1Y 
RDRGE=RGE/1060**I1X 
so TF (RDRGE=140) 14913914 
13 RDRGE=1000 
IX=1x-1 
cece TO 15 
14 DO 4 123920 
IF (RDRGE=005*1)55594 
4& CONTINUE 
RDRGE=1000 
2 6G TO 15 
5 RDRGE=065*I 
15 SS=RDRGE*10e0**1X 
TF (MIN) 16917917 
16 1Y=-1 
GO TO 18 
» a7 lyY=0 
18 NMIN=SS*IFIX(MIN/SS)+1Y*SS 
; NMAX=NMIN+NX#SS 
19 IF CNMAX=MAX)69797 
6 NMAX=NMAX+SS 
NX=NX+1 
GO TO 19 
7 RETURN 
END 
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APPENDIX=I1I1 l 
SUBROUTINE 'NwMax't 


SUBROUTINE 'NwMAx! 


CEE HEH HE HEE HE HE HE IE HE HIE HE HE HE HIE HE SE BE HEHE IE IE IE HE TE BE EE HE TE GE HE 

CHR KH KK HH KWH HIE IE IEIE IE EIR TE 4E HE 9K 96 38 
**SUBROUTINE NWMAX#* 

CE HE HIE HE HE I HE IE IE HE He HIE IE HE IE IE TE IE HE AE HE 2K 9G 36 9G 96 94 5e 3G 


© HE HEH IE HE HE HEHE TE HE HEH HE HEHE SEE SE IE TE IE HE HE IE HE 
PURPOSE 


SUBROUTINE TO FIND THE MIN AND MAX OF A SERIES 
OF DATA AND 
TO INDICATE ZERO OR NEGATIVE NUMBERS IF 


REQUESTED. 
PARAMETERS 
x = VECTOR OF DATAe 
N = NUMBER OF POINTS OF DATA IN Xe 
XMIN = MINIMUM OF THE GIVEN DATAe 
XMAX = MAXIMUM OF THE GIVEN DATAs 
IR = DATA INDICATORs =1 ALL DATA IN Xs =2 
DATA ON DISKe 
Il m= REQUEST AND ERROR INDICATOR» +VE IF 
ZERO/NEGATIVE 


CHECK REQUIREDs =O NO CHECKs =VE IF 
ZERO/NEGATIVE 
DATA FOUNDe 
NFIL = DISK FILE IDENTIFICATION NUMBERe 
NPT S =~ NUMBER OF POINTS OF DATAs ‘N' POINTS 
PER RECORD. 


METHOD 


WRITTEN BY ReBe NEWELL »sDECEMBER 19685 U OF As 


C 
C 
C 
C 
X 
C 
C 
C 
C 
C 
C 
C 
C 
¢ 
. 
Cc 
C 
C 
. 
C 
C 
C 
C 
C 
C 
a 
C 
C 
C 


CEH HE HE HEE HE FE HE IE HE HK HIE IE GE IE HE HE TE HE SE TE HIE HEHE FE IE TE HEHE HEH KE 9 HE 
CEH HEH EH ETE HEE HHH EH HEE ETE HEHE TE HE KE HE 


C 


SUBROUTINE NWMAX (X9NeXMINsXMAXsTIRo TI sNFILeNPTS) 
DIMENSION X(1) 
XMAX="1e0eE30 
XMINS1eE30 
NN=N 
GO TO (1l»s2)sIR 
1 NUM=1 
NPTS=N 
GO TO 3 
2 NUM=NPTS/N 
IF(NUM)2192193 
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APPENDIX=I11 2 


SUBROUTINE 'Nwmax! 
eal 
21 NN=NPTS 
7o. G0 12 IT=lsNuUM 
PePGS*TOr (S54) 5 rR 
> ~4 READ(NFIL'T)(X(1U) ¢tu=1—NN) 
ee PO 12 J=1 NN 
eee PLP CXL SL—XMIN) 697597 
6 XMIN=X(u) 
7T IF(X(S)=XMAX) 95998 
8 XMAX=X(U) 
S IFIIl) h2eh2s10 
mee ao TFU(X( Uh) DP wPls12 
11 WRITE(29101) 
101 FORMAT(' ERROR = ZERO OR NEG DATA GIVEN TO. LOG 
: 1 SCALING!) 
T]l=<1 
RETURN 
12 CONTINUE 
NNENPTS=N#NUM 
IF (NN) 14914913 
13 NUM=NUM+1 
I=NUM 
GO TO 4 
614 RETURN 
END 
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APPENDIX=I1] i 
SUBROUTINE 'NwtLcGs! 


SUBROUTINE 'NWLGS! 


Vs ae + Ay i | oe af Ss eo i a vi 
CIE HE IE HE IEE HE I HEE He HE BE HE IE HE FETE IE IE BE AE SE IE SE SE FE IE 3 9B FE SE 3K 2 96 


va 
CEH HE HE HE HE HE HE IE HE HEH HE HE HE EE IE FE IE IE GE IE SE IE IE 4b IE IE IE SE IE IE IE HE 


c **#SUBROUTINE NWLGS#* 
CHHHK HHH KK EH HK EE HE ES 


% 3 26 86 de Oe AL OL BOL ML Ok MA NL s 5 
WW RIE EI IE IE IE TE TE IE HE HE IE HE FE IE HE FE IE SE SE IE ME IE IE IE SESE IE 98 26 96 36 56 3% 


C 

C PURPOSE 

C 

C SUBROUTINE TO DETERMINE A LOGARITHMIC SCALE FOR 
c A GIVEN SET 

C OF VALUES TO AN INTEGER NUMBER OF CYCLES. 

C 

C PARAMETERS 

‘ 

a Xx = VECTOR OF GIVEN VALUES 

C N ~ NUMBER OF VALUES IN Xe 

C XMIN = MINIMUM VALUE OF THE RESULTING SCALEe 
C XMAX = MAXIMUM VALUE OF THE RESULTING SCALE6 
C NC =~ NUMBER OF DETERMINED CYCLES FOR THE 

a SCALE « 

C IR = DATA INDICATORs =1 ALL DATA IN Xs =2 
C DATA ON DISK 

. FILEs N= NUMBER OF POINTS PER RECORD. 
. NeTL = DISK FILE IDENTIFICATION NUMBER. 

C NREC = NUMBER OF RECORDS IN THE FILEe 

. 

C METHOD 

C 

c WRITTEN BY ReBe NEWELL »DECEMBER 19685 U OF Ac 
C 

C 

C 


CHEM HIE HIE THE EH HIE HIE HEHEHE EE IE IE TE HE HE HE HE IE HEE HE HE HE HE 
CH HHH HH ENE HEHE HE HE HEHE HE HE FEM HE HEE IE IE HEE HE HE HE HE HE He HE 


C 

C 
SUBROUTINE NWLGS (Xs9NoXMINsXMAXsNCoTReNFILsNREC) 
DIMENSION X(1) 

. FUNCTION FOR LOGARITHMS TO THE BASE 106 
ALOG1(Z)=ALOG(Z)/20302585 
IX=1 
II=1 

C CALL SUBROUTINE FOR DATA MAX AND MIN AND A ZERO/SIGN 


i CHECK e 
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APPENDIX=III 2 
SUBROUTINE 'NwLGs! 

~ CALL NWMAX (XoNeXMIN*XMAXoIRe ITs NFILSNREC) 

RETURN IF A ZERO OR NEGATIVE VALUE FOUND. 


POtPULi 1 s292 
1 NC=-1 
RETURN 
2 IF (XMAX=120)149394 
& NCO’ 
a GO TRAS 
14 IX=0 
~4& NCFIFIX(ALOG1(XMAX) )+I1X 
5 XMAX=10e0*#NC 
ec 
TF CXMIN@1¢0) 796917 
6 INC=O 
> GOATS 8 
aT IX=0 
7 INC=IFIX(ALOG1(XMIN))=IX 
8 XMIN#100e0#*INC 
 NC=NCHING 
RETURN 
END 
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APPENDIX=I1] 1 
SUBROUTINE 'LGRID! 


SUBROUTINE 'LGRID! 


CHAK EKA HH HH HH HH HH HEHE HEHE HEH HEHE HE IE IE HEH HE IE HE HE AE IE IE IE IE 96 HE IE 9 9 FE IEE SE 96 96 96 36 96 48 96 
C ** SUBROUTINE LGRID#* 
CH RH HE HH HIE HE HEH HIE HE HE HEHE HE FE IE SESE HE IE IE HE ME GE DE 5K E96 36 96 36 99 3 


HHH HHH HHH HE IIE HE 


PURPOSE 


THIS GRID SUBROUTINE PLOTS A STRAIGHT LINE 
PARALLEL TO EITHER 

THE X OR Y AXIS IN A POSITIVE OR NEGATIVE 
DIRECTION « IT 

PLACES TICK MARKS ON THIS LINE TO GIVE A 
LOGARITHMIC CYCLE e« 


USAGE 


CALL LGRID(INDsxXPSsYPS»sXSCAL sYSCAL sIPOSsCSIZE 
sNCYLE) 


DESCRIPTION OF PARAMETERS 


IND = INTEGER CONSTANT THAT SPECIFIES THE 
DIRECTION 

OF THE GRID LINE e 

IND=O0 + VE» X = DIRECTION 

IND=1 +VE Y = DIRECTION 

INDeZs-VE X = DIRECTION 

IND=3 =VE Y = DIRECTION 
APS ss YPS = THE X AND Y VALUES » MEASURED IN USERS 
UNITS » 
UPON EXITING THESE VARIABLES WILL CONTAIN THE 
PRESENT PEN 
POSITION IN USERS UNITS e 
XSCAL = SCALE FOR THE X = DIRECTION » INCHES/USERS 


UNIT e 

WSGAL =oSCALE FOR THE Y = DIRECTION » INCHES/USERS 
UNIT e« 

IPOS = AN INTEGER CONSTANT THAT SPECIFIES WHETHER 
XPS AND 


YPS VALUES ARE STARTING OR ENDING POINTS o 
IPOS=0 STARTING POINT 
IPOS=1 ENDING POINT 
CSIZE = A REAL CONSTANT OR VARIABLE THAT DEFINES 
THE LENGTH 
OF A CYCLE » MEASURED IN USERS UNITS oe 
NCYLE = NUMBER OF FULL LOGARITHMIC CYCLES TO BE 


PLOTTED e« 
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APPENDIX=I11 a 
SUBROUTINE 'LGRID! 


SUBROUTINES AND FUNCTIONAL SUBPROGRAMS REQUIRED 
Brey 


METHOD 


a0 


my 


WRITTEN BY ReAsFARWELL » JULY 1968 4 Ue OF Aco 





ANnNAA 


P BRERA K KH HK HH HHH HH HHH HH HE HE HE HEHE HE HEHE HE HE HEHE I HE SE IE IE IEE ETE IE IE IE GE HE 3 26 96 96 4K 


SUBROUTINE LGRID (IND »XPOS »YPOS*XSCALsYSCAL » IPOS sCSIZE 
leNCYLE) 

DIMENSION PAR(9) 

DATA PAR/ 0430103 900176093001249490.0969150+07918 
190«066953:04205799 

rf 00605115904e04576/ 

XPS=XPOS 

YPS=YPOS 


MOVE PEN TO STARTING POINT 


CALL FPLOT(+59XPOS»sYPOS) 
CSi2=CsSize 
pre aniD=1) 14293 


X=DIRECTION 


YP1=0e05/YSCAL 
XP1=060 

IX=1 

GO TO 4 


* = DIRECTION 


YP1=000 
XP1=04e05/XSCAL 
IX=0 
GO TO 4 
Soize-C$IZ 
IF(IND=3) 1ls292 
CALL FPLOT(69XPOS+1e5*XP19YPOS+1 65*YP1) 
CALL FPLOT(O9XPOS=1e5*XP1sYPOS=1 e5*YP1) 
CALL FPLOT(OsXPOSsYPOS) 
—CXSIZ=IX*CS1Z 
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APPENDIX=I11 
SUBROUTINE 'LGRID! 


— CYSIZ=(1=1xX)*CSIz 

DO 7 I=lsNCYLE 

DO 6 Il=1ls9 

~ 1J=10*IPOS+I1*(1=2%1POS) , 
XPOS=XPOS+PAR(IU) *CXSIZ 
—YPOS=YPOS+PAR(IU)*CYSIZ 

CALL FPLOT(OsXPOS»sYPOS) 

IF(II“9) 55696 

CALL FPLOT(OsXPOS+XP1sYPOS+YP1) 

CALL FPLOT(0»sXPOS=xXP1 sYPOS=YP1) 

CALL FPLOT(OsXPOSsYPOS) 

CONTINUE 

CALL FPLOT(OsXPOS+1e5*XP19YPOS+1e5*YP1) 
CALL FPLOT(0sXPOS=1e5*XP1sYPOS=165*YP1) 
CALL FPLOT(0sXPOSsYPOS) 

XPOS=XPS 

YPOS=YPS 

RETURN 

END 
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SUBROUTINE 'NWANA! 
— SUBROUTINE 'NWANN! 


CH HHH HHH EH HE HEH HEH HE HEHE HEM HE HEE HE IE IE IE IE IE IE 9G HERE IE HE IE BE 
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. ** SUBROUTINE NWANN#* 
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PURPOSE 


A SUBROUTINE TO PLACE LABELS AND GRIO SCALES ON 
AN AXISe 


PARAMETERS 


TAX = AXIS INDICATOR» =O X AXIS» =1 Y AXISe 
XPOS = X COORDINATE OF THE LOWER LEFT CORNERe 
YPOS = Y COORDINATE OF THE LOWER LEFT CORNERs 
X AXIS SCALE IN INCHES PER USER'S UNITe 
YIPUU = Y AXIS SCALE IN INCHES PER USER'S UNITe 
AMIN = MINIMUM TO WRITE ON THE GRIDe 

MAXIMUM TO WRITE ON THE GRIDe 

GRID INTERVAL FOR WRITING ON THE GRIDe 
IB ~ LABEL INDICATOR» =1 LABEL AS GIVEN» =2 
NO LABELe 

ALAB = VECTOR CONTAINING THE LABEL TO A MAXIMUM 
OF 20 


x 
mH 
- 
& 
& 
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Ww > 
fs 
n> 

~< 
Ea 


CHARACHTERS UNDER AN A2 FORMAT 
METHOD 


WRITTEN BY ReBe NEWELL sDECEMBER 19685 U OF Ac 


CET EVE TVA OY OY CV ev Ger CF OF 0) OO OLO 2 FY Cre) 


CH HH HE FE HE IE IE EK HE HE HEHE IE HE IE IEE KE IEE TE TE HEE HEHE HE IE HK HK HE 
CEE ETE HE HE HH HE EE HE HIE HE HE IE TE IEE IE HIE HE IE IE HEHE HE HE 


SUBROUTINE NWANN (IAX9XPOSsYPOS#XIPUUsYIPUUsSAMIN »sAMAX 
1l»SCFsIB»sALAB 

INTEGER ALAB(10) 

THETA=IAX*1657 


BO 10 (1293) 18 
1 X=(1=1AX) *(XPOS+1 eo 5/XITPUU) HI AX* ( XPOS=003/XTPUU) 


Y=(1=IAX) *(YPOS=-005/YIPUU) t1AX*YPOS 
CALL FCHAR (X9Y¥900l590e209THETA) 
WRITE(792) (ALAB(LL) sLL=1910) 

2 FORMAT(10A2) 

3 AX=IAX*(XPOS=O0l/XIPUU) 
AY=(1-I1AX)*(YPOS=0025/YIPUU) 
X=(1=I1AX) *XPOS+AX 
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APPENDDAS=FI1T 
SUBROUTINE 'NWANN! 


Y=AY+TAX*YPOS 

CALL FCHAR (XsY¥900l0s00elSsTHETA) 
WRITE (794) AMIN 

FORMAT (E103) 

X=(1L—1TAX) *(XPOS+265/XIPUU) +Ax 
Y=AY+ITAX*® (YPOS+1¢0/YIPUU) 

CALL FCHAR (XsY¥s00el090el5sTHETA) 
Moca 1 969 7 

WRITE(799) 

FORMAT(4Xs'LOG CYCLES') 

GO TO 8 

BRITE? 95) SCF 
FORMAT(2X9'('sE100¢39' INTERVALS )') 
X=(1=1TAX) *(XPOS+6065/XIPUU) +Ax 
YEAY+TAX*(YPOS+3e5/YIPUU) 

CALL FCHAR (XsY¥sO0elOs0el5sTHETA) 
WRITE (794) AMAX 

RETURN 

END 
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APPENDIX=I11 l 
PROGRAM 'PICK! 


PROGRAM 'PICK! 


ee Oe Cee oe ee ey ee ce 
tO a ee em nl ey Nt SN Ne hi Kh NY a OER NH AR Neh ES eS Nh SON cee) NN IS ENR es nD A GER es GON i ah tS me 
om one a en aoe 


PURPOSE 


We UTICIZE THE SUBROUTINE *REDPT' 70 PERMIT 


a coaelbtea IN THE NUMBER OF DATA POINTS IN A 
ILEe« 


TO GENERATE A FILE OF TIME VALUES USED IN 
PLOTTING TIME DATAs 
PARAMETERS ENTERED VIA KEYBOARD 


IFLRs IFLWs NRECs NPICK ARE EXPLAINED IN 
SUBROUTINE 'REDPT'.e 


RATE = SAMPLE RATE FOR UNREDUCED DATA IN 
POINTS PER SECONDe 
ITIME = = 1 REDUCE DATA DO NOT GENERATE FILE 


OF TIME VALUESe 
= 2 REDUCE DATA» GENERATE FILE TIME 


VALUESe 
= 3 GENERATE A FILE OF TIME VALUES 
ONLY e 
IFLT = = NOe OF FILE FOR TIME VALUES» 
IFLAG = = 1s RETURN FOR FURTHER ASSIGNMENT e 


29 EXITe 


#% TABLE OF FUNCTION OF VARIABLE NAMES ** 


ANANNNNNAANNANANDANAANDANANADANA 


VARIABLES IN THE SUBROUTINE ARGUMENT LISTS WHICH ARE 
NOT EXPLAINED IN THIS LISTING ARE COVERED IN THAT 
OF THE SUBROUTINE®s 


LUR=LOGICAL UNIT NOe FOR TYPEWRITER INPUTe 
LUW=LOGICAL UNIT NUMBER FOR TYPEWRITER OUTPUT. 


JFLAG=1 NO DATA REDUCTION TOOK PLACE» #2 DATA 
REDUCTION OCCURREDe 


NPPR=NUMBER OF DATA POINTS PER RECORD. 


ANNANNANANADANANAANA 
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APPENDIX=III 2 
PROGRAM 'PICK! 
IFLAG=1 RETURN FOR ANOTHER RUNs =2 EXITe 


IW=RECORD NOe ON DISK WRITE OPERATIONs 


DEFINE FILE 51(649809U9J40) 952(64%s809U9U0) » 
153(649809Us40) 954(649809U 940) 955(649809U9U0) » 
156(649809Us40) 957164980 9U U0) 958 (649809U9U0) 

DIMENSION V(40) 

COMMON LURsLUWsNPPReDTsRATEsITRASS#IFLAG 

LUR=1 

LUW=2 

JFLAG=1 

NPPR=40 


WRITE OUT PROGRAM IDENTIFICATIONe 


WRITE (LUW 960) 
60 FORMAT('THIS IS PROGRAM PICK!) 


WRITE OUT DATA ENTRY INSTRUCTIONS» 

10 WRITE (LUWs50) 

50 FORMAT ( ENTERS IFLRoIFLWeNRECsNPICKsIRST sRATESITIME's 
L'sIFLTsIFLAG') 


caun. SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
ENTRY e 


CALL FFINP(LUR:9s0eTFLR909ITFLW90 sNREC 90 sNPICK9O%TRST 91 
LoRATE sOsITIMEsOsTFLT9OsIFLAGs IEROR) 
DT=1leO/RATE 


CHECK IF A FILE OF TIME DATA IS REQUIRED OR NOTe 


GOTO( 40941942) sI TIME 
40 JFLAG=2 


CALL SUBROUTINE TO REDUCE NUMBER OF DATA POINTSe 
41 CALL REDPT( IFLR» IFLWeNREC#IRW9NPICKSIRST) 
CHECK IF DATA WAS REDUCEDe 


LF (UF LAG@1)43 943944 
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APPENDIX=ITI 
PROGRAM 'PICK! 


GENERATE A FILE OF TIME VALUESe 


NREC=IRW 

T=000 

DO 15 IW=lsNREC 
DO 16 J=Fl»eNPPR 
V(J)=T 

T=T+DT 

CONTINUE 


STORE A RECORD OF TIME VALUESe 


WRITECIFLT'IW)V 
CONTINUE 

PPC TFLAG=1)10910520 
CALL LINK(CHIEF) 
END 
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APPENDIX=III 1 
PROGRAM 'WRITE! 


ROGRAM ‘WRITE! 


eee es Se es ce SD et Laem a SN fa GA sid Hh 
Cn ed 
on oe ee ee ee ee ee 


PURPOSE 


UTILITY PROGRAM TO MANIPULATE DATA FILESe 
PROVIDES FACILITY TO READ DATA FROM A FILE AND 
WRITE Lite 

le INTO ANOTHER FILE 

2e PUNCH IT ONTO CARDS IN 'E!' FORMAT. 

38 WRITE IT ONTO THE LINE PRINTER 


THE CAPABILITY TO HANDLE BOTH REAL AND INTEGER 
VALUES IS AVAILABLE e 

PARAMETERS ENTERED VIA KEYBOARD 
TFLR = NOwe OF DISK FILE FROM WHICH DATA IS 


READe 
IFLW = NOe OF DISK FILE WHERE DATA IS WRITTENe 


IORF = = 2 FOR INTEGER» =2 FOR REAL 
IWRIT = = 1s WRITE IN DISK FILE« 
= 2» PUNCH ON CARDS. 
= 39 WRITE ON LINE PRINTERe 
NREC = = NOe OF RECORDS READ FROM IFLRe 
IRETN = = 1 RETURN FOR ANOTHER RUNs = 2 EXITe 


%* TABLE OF FUNCTION OF VARIABLE NAMES ** 


ADATA DIMENSIONED VARIABLE INTO WHICH EACH RECORD OF 
REAL VALUES IS READ DURING DATA TRANSFERe 


IDATA DIMENSIONED VARIABLE INTO WHICH EACH RECORD OF 
INTEGER VALUES IS READ DURING DATA TRANSFERe 


LURELOGICAL UNIT NUMBER FOR TYPEWRITER INPUTe 
LUWELOGICAL UNIT NUMBER FOR TYPEWRITER OUTPUT. 
LUPSLOGICAL UNIT NUMBER FOR CARD PUNCHINGs 
LPR=LOGICAL UNIT NUMBER FOR LINE PRINTER OUTPUT. 


NPPRI=NO« OF INTEGER VALUES PER RECORDe 
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w% 23MAM 3JGAIRAV FO WVOLTINUA FO 3IBAT ** 


30 GAODSA HBAS HOIHW OTM S4ISATAAV A3BNOL2ASMI0 ATAGA 
eADIVSVAAT ATAG OWIAUG GABA 21 2aUJAV JAZA 


40 GHODSA MDAZ HDIHW CTV] JIBAITAAV CBNO1T2K3aMIG ATAGI 
eADAIVSWVART ATAG OVIAUG GABA 21 S3VUIAV AZOSTAI 


eTUSAL MBTIAWSAIYT AOA ABSMUN TINY JAIIOOJ=AUI 
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APPENDIX=III1 2 
PROGRAM ‘WRITE! 


NPPRF=NO«e OF REAL VALUES PER RECORD. 


KK=NO«e OF RECORD ON FILE READ OPERATION’ 


eee Cees cans ces es ee OD ces ee cee Mee oh A Ls ns ER eens GE in GOS Mim MY ee MH MT NY et eR GY ancl nN Cee SS AER RS GS GN ~~ oo 


DEFINE FILE 51(649809U9uU0) 952(645809UsU0) » 
153 (64980 9UsU0) 954(649809UsU0) 955164980 sUs 0)» 
156(649809UsU0) 957(649809UsU0) 958(649809U8U0) 

DIMENSION ADATA(40) sIDATA(80) 


INITIALIZE PARAMETERSe 


LUR=1 
LUW=2 
LUP=5 
LPR=6 
NPPRI=80 


WRITE OUT PROGRAM IDENTIFICATIONS 


WRITE(LUW95555) 
FORMAT('THIS IS PROGRAM WRITE') 
NPPRF=NPPRI/2 


WRITE OUT DATA ENTRY INSTRUCTIONSe 


WRITE (LUW 93) 
FORMAT (ENTERS IFLReIFLWsIORF 9 IWRITsNREC » TRETN') 


CALL. SYSTEM SUBROUTINE TO GIVE FREE FORMAT ON DATA 
ENTRY e 


CALL EFINP(LUR16 908 TFLR90%IFLW20sTORF 20s IWRIT #0 #NREC 90 
lsIRETN» 

LIEROR) 

DO 100 KK=lsNREC 


DETERMINE WHETHER RECORD CONTAINS INTEGER OR REAL 
VALUESe 


GOTO( 14915) sIORF 
READ(IFLR'KK) IDATA 
GOTO 888 
READ(IFLR'KK) ADATA 
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APPENDIX=1 11 
PROGRAM ‘WRITE! 


DETERMINE WHERE TO WRITE DATAs 


GOTO (16917918) sIWRIT 


— WHETHER DATA WRITTEN ON DISK IS INTEGER OR 
Ale 


GOTO( 19920) sIORF 
WRITECIFLW'KK) IDATA 
GOTO 100 
WRITECIFLW'KK) ADATA 
GOTO 100 


READ A BLANK CARDe 


READ( 594002) 
FORMAT(' °) 


DETERMINE WHETHER DATA PUNCHED IS INTEGER OR REAL 6 


GOTO( 21922) sIORF 
WRITE(LUP 950) IDATA 
FORMAT (1016) 

GOTO 100 

WRITE(LUP 951) ADATA 
FORMAT (5F1006) 

GOTO 100 


DETERMINE WHETHER DATA WRITTEN ON LINE PRINTER IS 
INTEGER OR REALe 


GOTO( 23924) sIORF 
WRITE (LPR55) IDATA 
FORMAT(17(1Xs16)) 
GOTO 100 
WRITE(LPR956) ADATA 
FORMAT(9(1XsE12¢9)) 
CONTINUE 


DETERMINE WHETHER MORE DATA IS TO BE WRITTENe 


GOTO (2229444) sIRETN 
CALL LINK(CHIEF) 
END 
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APPENDIX=IITI l 
SUBROUTINE 'LINEA! 


SUBROUTINE 'LINEA' 


Sa HE HH IH HH KERMA H ERE E REE R 


‘ 


**SUBROUTINE LINEA** 


CHM HHH HHH HH IH HH HAH HHH HH HH HEH HHH HH RN HHH HH  H F 


C 


5 
i. 
C 
C 
C 
C 
C 
C 
C 
Cc 
C 
C 
C 
C 
C 
a 
C 
C 
C 
. 
C 
C 
C 
C 
- 
C 
C 
C 
C 
< 
C 
i 
C 
C 
. 
C 
C 
C 
C 
C 
C 
C 
C 
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PURPOSE 


TO GENERATE A LEAST SQUARES POLYNOMIAL TO FIT 
GIVEN 


TABULAR DATAc 


USAGE 


CALL LINEA (NoX9YoMloWsYN) 


DESCRIPTION OF PARAMETERS 


N = NUMBER OF TABULATED POINTS SUPPLIED (MAXe 

300) 

x = VECTOR OF INDEPENDENT VALUES 

Y = VECTOR OF SUPPLIED DEPENDENT VALUES. 

ML = POWER OF THE LARGEST POLYNOMIAL TO BE 

TRIED (MAXe 10) 

W = VECTOR OF WEIGHTING VALUES (SET TO UNTTY 

IF NOT USED)e 

YN = VECTOR OF CALCULATED DEPENDENT VALUESe 
REMARKS 


VECTORS XsYs AND W SHOULD BE DIMENSIONED IN 
DOUBLE PRECISION 
AND BE OF LENGTH 3006 


SUBROUTINES REQUIRED 


IBM 360 SSP SUBROUTINE DGELG FOR THE SOLUTION 


OF A SET OF 
LINEAR EQUATIONSe 


METHOD 


STANDARD LEAST SQUARES TECHNIQUE = LAPIDUS 


(DIGITAL | 
COMPUTATION FOR CHEMICAL ENGINEERS! MCGRAW=HILL 


1962 
CHAPTER 7e 
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APPENDIX=ITI 2 
SUBROUTINE 'LINEA' 


AUTHOR OF PROGRAM 


WRITTEN BY Ve KRISHNA919679U OF Ac 


SE HE HE SE FE FE AE FE SESE HE IE FE FE IEE SE HE FE IE IE FE IEE ESE FETE SER TE HIE HHH HHH KHKK KHER HKEHAKKEK 


CY CNET OY ORGY F761 OY 


SUBROUTINE LINEA (NoXsYoMloWsYN) 

DOUBLE PRECISION X(300) sY(300) sR(10) 9A(10910) 9B (300) 
16S8¢010)sYO(300 

19CON(10910) »sw( 300) sYN(300) 

OEMENSTON K1(101)eY1¢101) 9¥2(101) 2Y3(101) 


WRITE(6 94) 
& FORMAT(1H1930Xs'LEAST SQUARES CURVE FIT PROGRAM!/ 
1/10Xs'DATA 
TWPPLIED!V/23X0'X'sl9Xe"Y* sl9Xe'W'//) 
WRITE(693) (X( I) 9YCI) oW(1) sTBl9N) 
3 FORMAT(10X93D20¢6) 
M=M1+1 
VARN@=le E 10 


. FORM NORMAL EQUATIONS 


DO 10 yv=leM 
R(J)=00e0 
10 CONTINUE 
DO 9 J=loeN 
R(1)=R(1)+Y(U) #wlu) 
9 CONTINUE 
DO 11 J=29M 
DO 11 I=l9N 
Sere ie eLEs 020 ) 60 TO ds 
R(U)ER(G)FY(T) X(T) #* (sel) AWOL) 
11 CONTINUE 
DO 12 I=lsM 
DO 12 J=leM 
A(IsJU)=000 
12 CONTINUE 
DO 16 JEle™M 
DO 16 K=l9M 
DO 16 I=l>sN 
IF( DABS(X(1)) eLEe oo o01eG0 To is 
AlKoJd)ZA(Koa) +X (1) (JtKe2 1 ¥WCT) 
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APPENDIX=I1I 
SUBROUTINE 'LINEA' 


CONTINUE 
A(ls1)=020 
DO 17 T=leN 
Allsl)=Allsl)4+w(I) 
CONTINUE 

DO 51 K=29™ 
DO 19 JElsKk 
StJ)=R (J) 
CONTINUE 

DO 20 JFloK 
DO 20 I=lsK 
TJ=(JU-1) *K+I 
BC IJ) SACI oJ) 
CONTINUE 
KK=K#K 


SOLVE FOR NORMAL EQUATIONS 


CALL DGELG(Ss8skKsls0e0001sTER) 
DO 30 J=loeN 

YO(U) =000 

CONTINUE 

DO 31 I=loeN 

Permeaest(Xily)«GTs OO ) GO TO 29 
herp restl) 

GO TO 31 

CONTINUE 

DO 31 J=EloeK 

YO( I) #=YO(1)+S (4) *X(1) #*# (UNL) 
CONTINUE 


COMPUTE VARIANCE 


VAR=000 

DO 32 I*isN 
VARSVAR+(YO(1)“Y¥(1))¥*2 
CONTINUE 

VAR=VAR/(N=1) 

KZ=K=l 
WRITE(6970)KZs9VAR 


FORMAT(5Xe'FITTING BY A POLYNOMIAL OF ORDER'»I5»9! 


9'//10X9 


L'wITH A VARIANCE OF tyE15059' 9 '//10X9'AND 


1 
1 


CONSTANTSs'//) 

WRITE (6971) (S(L) sL=1sK) 
FORMAT(15X9D20012/) 

IF( VAR eGEeVARN ) GO TO 40 
VARN=VAR 
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APPENDIX=I11 4 
BeeoUBROUTINE 'LINEA' 


KNEK 
NK#K=1 
DO 34 IT=lsN 
SYNULISYO(1) 
34 CONTINUE 
DO 33 J=lsK j 
— CON(K=19u)=S(u) 
33 CONTINUE 

40 CONTINUE 
51 CONTINUE 
— WRITE(695) NK 
5 FORMAT(1HO#' THE BEST FIT POLYNOMIAL IS OF 
1 DEGREE '»sl4// 

WRITE (696) 
6 FORMAT(10Xs OBSERVED! 910X»'CALCULATED'//) 
WRITE (6960) (Y(1)9YN(1)s1=19N) 
60 FORMAT (8X 9D1265910X»D1265) 
- - RETURN 

END 
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APPENDIX IV 


EQUIPMENT DETAILS 


This appendix contains detailed drawings of the test heat exchanger 


and an address list for equipment supplier 


WY) 


The test heat exchanger drawings were used to construct three sizes 
of heat exchanger; however, shortness of time only permitted testing of 
one size, the largest. 

The symbols used in Table IV B are defined in Table l. 

Figure IV A consists of a cross-sectional drawing of the test heat 

xchanger, and two detailed drawings of integral components. Specific 
dimensions which were different for all three sizes of heat exchanger, are 
labelled with letters. The values for these dimensions are given in 

Table IV A. Details of items marked with letters not referred to in 

Table IV A are discussed in the following material. 

The heat exchanger was fabricated from two standard twelve foot 
lengths of Aneconda copper tubing. Tube (A) was 3/4 inch, Type H, and 
the shell (B) was one inch, Type H, 14 inch, Type DWV, or 1% inch, Type 
DWY, depending upon the heat exchanger size. The inside and outside 
diameters of the tube were 0.815 and 0.875 inches, respectively. For the 
three different shell sizes, the respective inside and outside diameters 
were 1.061, 1.125 and 1.295, and 1.375, 1.541 and 1.625 inches. The 


tubing used was thin walled, and was chosen in an effort to minimize ae 


: a = 1 2 m 2 5 + ie if . iz the 
heat capacity of the heat exchanget walls. This was done to minimize th 
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TABLE IV A 


DIMENSIONS FOR FIGURE IV A FOR EACH OF THE 
THREE HEAT EXCHANGER SIZES 


(All dimensions are given in inches. ) 


DIMENSIONS 
ON Meg. b- Pers HEAT EXCHANGER SLL a ae 
FIGURE IV A 3/4 x 1 3/4 x 1-1/4 3/2 
R +0... 0 +0.0 an lies 8) 
0.0930-0.005 0.210-0.005 0.326-0.005 
W 3/8 3/8 3/8 
T 1/16 1/16 . 1/16 
D1 1-1/4 1-1/2 1-3/4 
D2 See Figure IV-B sO) +0.0 
L375 -0,.005 1.625-0.005 
D3 See Figure IV-B +0.005 _+0.005 
0.-875-0.0 02875~0 
i. : 1/16 L716 1/16 
M Tee Sleeve Length . Tee Sieeve Length Tee Sleeve Length 
0 See Figure IV-B O4L25 (OS) 
0 (Depth) See Figure IV-B OniaLS Omri 
O-Ring Size 
forwehell Side 3/4 x 1 x 1/8 33/5 Ho lal Soke ties 1-5/8 x 1-3/ oe 2 
P See Figure IV-B 0.125 Onie5 
P (Depth) See Figure IV-B 0.115 Oe 
O-Ring Size 


| : 1/8 
for Tube Side 3/4 x 1 x 1/8 Cy em lee an As) 3/4. xi lx By 
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damping effect the wall capacities have on the temperature fluctuations 
in the fluid streams. The end fittings (C) were standard threadless 
copper tees with a run Lntatlarre (setae ta with the shell tubing, and a 
branch diameter of 1 inch. The tees were positioned so the shell inlet 
and outlet were 180 degrees apart with respect to the heat exchanger axis. 
The end bushings (D and D ) were machined from brass to conform with the 
tube OD and the tee sleeve ID. One bushing (D’) was a simple annular 
section which was soldered into position and the other (D) was fitted 
with an O-ring seal to allow for thermal expansion (See Detail II of 
Figure IV-A). Three screws were placed in the latter bushing to hold it 
in position under pressure. Because of the small annular region for the 

1 inch shell size, a modification of the O-ring configuration was necessary 
Beeshown in Detail I of Figure IV-B. 

To give the tube concentricity with respect to the shell, three 
spacing lugs (E) were soldered to the outside of tube at 120 degree 
angles every two feet along the axis eee heat exchanger. The shape 
of these lugs is shown in Detail I of Figure IV-A. 

The overall length of all three test heat exchangers was ten 
feet. This was defined as the distance between the inner face of the 
bushings at each end. 

Standard copper unions were fitted on to all four branches of 
the heat exchanger as close to the exchanger as SYM, This facilitated 
easy changes from one heat exchanger size to the next. 

Thermocouple probes were mounted at convenient points near the 
inlet and outlet of each stream. They were the ceramic packed type with 


a 1/16 inch OD sheath (see Table 1) which is suitable for mounting in a 
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compression Cype fitting. Detail IL of Figure IV-B shows how these 
fittings were mounted on the exchanger. The procedure for mounting was 
as follows: 

a. The bottom face of the fitting was filed to a concave curvature 
that approximately matched the convex curvature of the exchanger 
wall. 

b. The fitting (brass) was then soldered on to the surface of the 

exchanger at the desired location. 

Ce A 1/16 drill was used to drill a hole in the exchanger wall that 
matched the location of the fitting. With this type of installation, 
the thermocouple could easily be inserted into the stream to any 
depth and held in position by tightening the compression nut. 

To assure that the depth of the thermocouple would be continuously 

adjustable, teflon ferrules were used in the compression fittings 

to prevent damaging the sheath surfaces. 

For dynamic temperature measurement, two thermopiles were used; one 
in each outlet stream. They were positioned in one end of a copper tee 
with flow entering the tee along the run at the opposite end and leaving 
the tee via the branch. To achieve accurate measurement of the stream 
temperatures, the thermopile tee was positioned as near the exchanger 
body as possible. The limiting factor in this aaa te bait the union 
referred to earlier which had to come between the heat exchanger and 
the thermopile tee so that changing of heat exchangers would not disturb 
the cp liss. This short distance did not yield a temperature drop 
because experimental work revealed that heat transport was such that no 


i C j ; sss than five feet 
measurable temperature difference could be detected less 


down stream of the heat exchanger outlets. 
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The thermopiles used were supplied with the probe wires mounted 
inside a % inch diameter, 4 inch long stainless steel sheath designed 
to be positioned in a % inch male NPT compression fitting. Figures 
Iv-C and IV-D show the supports that were fabricated for mounting the 
thermopiles in the tees. Two sizes of support were made, 1 inch for 
the shell and 3/4 inch for the tube. 

As mentioned in Section 5.2.2, these supports perform a Seber ese 
function by supporting a loosely packed piece of gauze upstream of the 
thermopile which served to mix the fluid and minimize thermal noise. To 
prevent the gauze from being carried downstream with the flow, a coin 
shaped piece of brass screen was soldered to the support at the location 
Bown merieures IV € and LV D. 

The support fits to a closure tolerance inside the tee, and is 
held in position by three screws which thread into the flange shown in 
Peire Iv C and IV D. The flange is soldered to the outer surface of 
the copper tee. The compression fitting is threaded into the % inch 
female NPT and GEE) themmepi le is positioned for the desired probe 
contact with the stream fluid, then the compression nut is tightened 
to secure the probe. 

Aementioned in Section 5.2.2, the thermopiles can be inter- 
changed from one stream to the other. This is achieved by loosening the 
compression, removing one probe, replacing it with the other and 


re-tightening. 
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SYMBOL 
BV1. 


BV2 


Cl 


C2 


CR1 


CR2 


FCl 
FC2 


FC5 


FCSA 


FT1 


FT2 
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TABLE IV B 


LIST OF EQUIPMENT SUPPLIERS 


Whitey Research Tool Co. 


SD 2antasehald St. 


Oakland 8, California 


University of Alberta 


Technical Services Department 


Electronic Division 
University of Alberta 


Edmonton, Alberta 


Ganadivany General) Electric .Con 


14325 - 112 Avenue 


Edmonton, Alberta 


Spartan Controls Ltd. 
5638 - 103A Street 


Edmonton, Alberta 


Honeywell Controls Ltd. 
123820. -. 142. Street 


Edmonton, Alberta 


Flow Technology, Inc. 
401 Scuth Hayden Road 


Tempe, Arizona 85281 


Lec. 
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TABLE IV B (CONT'D) 


LIST OF EQUIPMENT SUPPLIERS 





SYMBOL MANUFACTURER 
FV1 University of Alberta 
FV2 Technical Services Department 


Electronics Division 
University of Alberta 


Edmonton, Alberta 


Ml Control Company Canada, Ltd. 
M2 Mfrs. of Redmond Electric Motors 


St. Thomas, Ontario 


Qu. 


Ov1 Western Alloys and Metals Lt 
Ov2 1475 Boundary Road 


Vancouver 6, B.C. 


gal Robert Morse Corporation Ltd. 
Be 10940 w= 2 OSS treet 


Edmonton, Alberta 


RL Canadian Electronics Ltd. 
R2 109 Street and 107 Avenue 
Edmonton, Alberta 
Manufactured by: Superior Electric Co. 


Bristol, Connecticut 
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S? 
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S4 


SBl 


SB2 


SEL 


SH2 


SHX 
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TABLE IV B (CONT'D) 


LIST OF EQUIPMENT SUPPLIERS 


MANUFACTURER 
Crane Supply 
11925 Kingsway Avenue 
Edmonton, Alberta 
Manufactured by: Keckley Ltd. 
3400 Cleveland Street 


Skokie, Illinois 


Canadian General Electric Co. Ltd. 


1325 928 To iene 


Edmonton, Alberta 


Flow Technology, Inc. 


401 South Hayden Road, 


Tempe, Arizona 85281 


J. R. Stephenson Ltd. 

14600 - 116th Avenue 

Edmonton, Alberta 

Manufacturer: Taco Heaters Canada Ltd. 


Toronto, Ontario 
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TABLE IV B (CONT'D) 


LIST OF EQUIPMENT SUPPLIERS 


MANUFACTURERS 
J. R. Stephenson Ltd. 
14606 - 116th Avenue 
Edmonton, Alberta 
Manufacturer: Sarco Canada Ltd. 
Markham Road and MacDonald-~ 
ier tee Freeway 
Riel 


Agincourt, Ontario 


Thermo-Electric (Canada) Ltd. 
FQ Box 1.0 


Brampton, Ontario 


Science Products Corporation 
Route 46 ; 


Dover, N.J. 07801 
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